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1.0 ABSTRACT 
THIS PROGRAM IS A TEST OF THE OM11-BB MODEM CONTROL MULTIPLEXER 
he PROGRAM IS DIVIDED _— FUNCTIONAL TEST GROUPS AS 

FOLLOWS: 


GROUP 0: 73 TEA sine THE ae LINE ee FUNCTIONS ARE 
bsine THe THE H861 TEST CONNECTOR 

GROUP 1}. Las Lie 1) eanmpdiantmne ote Poe 

GROUP 2: SCONE ONNECT TEST FOR 103A MODEMS 

GROUP 3: cowed Bisco ONNECT T eT FOR 20eC 


2.0 REQUIREMENTS 
2.1 EQUIPMENT 


PDP-11 COMPUTER ae AT LEAST 8K OF MEMORY 
ASR-33 TELETYPE CR EQUIVALENT 


DM11-88 
2.1.1 POR 16 LINE SCANNER TEST 
H861 TEST CONNECTOR 
2.1.2 FOR SINGLE LINE CABLE TEST 
DM11-DC_( a SL AND 4 CABLES 
CONNECTED TO DI TRIBUTION PANEL) 
DC11 TEST CONNECTOR 
2.1.3 FOR ON LINE TESTS 


rede htc (NEEDED TO PREVENT LONG 


Tscorre Ets iF On -AA 11-AA IS NOT CONNECTED 
O THE DISTRIBUTION 
2 BELL 103A MODEMS (FOR 1038 TEST) 


2 BELL 20eC MODEMS (FOR cdeC TEST) 
2.2 MEMORY 
THE PROGRAM RUNS IS 8K MEMORY 


tanner: oy tear tea 
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3.0 


4.0 


4.1 








DO1 


PHT ie cuTTeH Beare FIED BREN FIRST EXE UTED ie proce WITH OR pe tgour 
DS ade tc enous ance’ ceaperen, OT fg 15 DEFAULTED. 
Bc Soe Be nt EH a ee le REMEETE 
(IE)  SWR=XXXXXX NEW= 
POSSIBLE RESPONSES ARE: 
ae CHANGES ARE T 


1. <CR> 
e. 6 DIGITS 0-7 RiPra ftPe Mee 7 REGISTER 


3. tU TO ALLOW F ERROR IS COMMITTED 
KeVING IN SEREG VALUE Wo 


THE PROGRAM IS THE ABILITY TO DYNAMICALLY 


INTO CHANGE THE 
ON OF SWREG pus te PROGRAM EXECUTION. BY STRIKING ¢G 
CNTL_G) ON CONSOLE TTY THE OPERATOR SETS A REQUEST FLAG TO CHANGE 


C 
( 

T WHICH IS PROCESSED IN KEY AREAS OF THE PROGRAM 
Cope” CIE) ERROR, ROUTINES, AFTER HALTS OF PASS, AND OTHER 

EPL ICABLE AREAS 

LOADING AND STARTING alone 


THE STANDARD PROCEDURS FOR LOADING BINARY TAPES IS TO SE USED 
STARTING ADDRESS 


THE STARTING ADDRESS FOR ALL TESTS IS 000200. 
RESTART ADDRESS FOR ALL TESTS IS 000200 








ee ee a ee >. ee 
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4.2 OPERATOR AND/OR PROGRAM ACTION 


4.2.1 INITIAL PROGRAM START 
4.2.1A WITH HARDWARE SWITCH REGISTER 
LOAD ADDRESS 000200 


FT SWOO = 1 
PRESS START 


4.2.18 WITHOUT HARDWARE SWITCH REGISTER 
LOAD ADDRESS 200 
PRESS START 

4.2.1.2 PROGRAM WILL T 
“OM11-B8 Athenostrc (ONCE ONLY) 


4.2.1.3 PROGRAM WILL TYPE (WITH SWOO = 1 
vein eS oi yp AND WI an FOR AN INPUT 
FROM 





4.2.1.4 TYPE A Tess OG IGIT NUMBER (OCTAL) WHICH IS THE 


CRETURR. IF fal Inedamecy AbRESe 1S TYPED, THE PROGRAM WILL 


Len cones TEED 15 acer TO THE PROGRAM, 
VECTOR ADORESS OF THE DM11-88 
T MILL OCCUR AT THAT ADDRESS#2, WHEN 

UROER TEST, A 


TO RECOVER, PERFORM 4.2.2.1. 


4.2.1.5 THE WILL TYPE “CONTROL REGISTER ADDRESS-" AND WAIT FOR 
AN I FROM THE TELETYPE KEYBOARD. 


ee ERY SHE OUD Re Ra 


WE? Re Pau 


THEN REPEAT 4.2.1. 


MOTE! BUTS A OW-EXIGTENT RESISTER, A BUS ERROR TRAE WILL 


poorest THE REGISTER, AND THE 
Pee RAN ait LL HALT AT LOCATION 


TO RECOVER, PERFORM 4.2.2.1. 
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4.2.1.7 THE PROGRAM WILL TYPE 
“TEST-" AND WATT FOR AN INPUT FROM THE TELETYPE KEYBOARD. 
4.2.1.8 TYPE A THREE DIGIT OCTAL NUMBER CORRESPONDING TO THE 


WPT cottcl el eet ie WOE Re POS ins 


pi 3 BOTA ELE TE “ests $ TaceTHE WITH THE NUMBER TO BE TYPED 


TEST GROUP 0: 

oes Lite oh USING H861 TEST CONNECTOR-FIRST TEST=0 

OFF LINE Tests USING DC11 TEST CONNECTOR AND MODEM CABLE-FIRST TEST=100 

CONNECT DISCONNECT TEST FOR BELL 103A MODEMS-FIRST TEST=200 

CONNECT/DISCONNECT TEST FOR BELL 202C MODEMS-FIRST TEST=300 
4.2.1.9 THE PROGRAM WILL ENTER THE SELECTED TeST GROUP. 
4.2.2 PROGRAM RESTART WITH HARDWARE SWITCH REGISTER 
4.2.2.1 WITH SWOO=1 

LOAD ADDRESS 200 

ae 2 ah wer OnE PRESSING START. 

PROGRAM WILL PERFORM AS DESCRIBED IN 4.2.1.3 TO 4.2.1.9. 
4.2.2.2 AITH SWO0=0 

ee F 

PROGRAM WILL PERFORM AS DESCRIBED IN 4.2.1.7 TO 4.2.1.9 
4.2.3 PROGRAM RESTART WITHOUT HARDWARE SWITCH REGISTER 


LOAD ADDRESS 200 
PRESS START 
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oo 
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5.0 OPERATING PROCEDURE 
5.1 TEST GROUP O 16 LINE SCANNER TEST 
5.1.1 TEST INITIALIZATION 


NONE REQUIRED, PROGRAM TYPES “16 LINE SCANNER TEST” 
AND BEGINS TEST EXECUTION. 


5.1.2 OPERATIONAL SWITCH SETTINGS 


1, 
§.1.3 PROGRAM AND/OR OPERATOR ACTION 
§.1.3.1 Nas a whi ten’ eanie ee Onn WILL RUN 
SI QUENTIALLY. P saa TEST IS REPEATED 


EXCEPT PEG ATES HE LSI Fa "ON peat R START OF TEST. WHEN AL 
BETS ge RB AP The nel eave se PM nd BET 


ERROR AESSAGE AND ConTINIE. TEST TESTING’ -ttelog wa 


o-4-8-8 O er PROGRAM ACTION WILL BE AS IN S.1.3.1 EXCEPT THAT 
A HALT WILL’ OCCUR AFTER ERROR TYPEOUT. 


5.1.3.3 WITH SH13=1 ON UI AS IN 5 5.1.3.1 EXCEPT THAT 
NO TYPE WILL Gi TE ve Tet THAT FAILED 
WILL BE DISPLAYED BATS Lights 
5.1.3.4 THIS PROGRAM WILL NO LONGER TRACE TRAP WITH THIS RELEASE 
5.1.3.5 WITH SW10=1, PROGRAM ACTION WILL BE AS IN 5.1.3.1 EXCEPT THAT 
AFTER AN HAS OCCURED PROGRAM WILL IMMECIATELY 
START THE NEXT TEST IN CEDUENCE. 
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5.2 

eel 5.2.1 
a 
5? 
58 
270 
271 
e7e 
273 
sa $.2.2 
573 
278 5.2.3 
279 
280 

1 
eee $.3 
284 5.3.1 
28S 
286 
287 
288 
289 
230 
291 
ese 
Bay 
ess 
2% 
5a 
e399 
300 

| 
cs 5.3.2 
5 
3093 





5.3.2.1 PLACE ANSWERING DATA SET IN “AUTO ANSWER” MODE 





HO1 


TEST GROUP 1 SINGLE LINE CABLE TEST 


TEST INITIALIZATION 


ect Ha WE RNP FOR EF 
AO eR DE sper 


(RETURN>. THE PROGRAM WILL THEN BEGIN’ Teer HD BY 
IF THE TELETYPE INPUT G FRCORRECT THE PROGRAN 
WILL TYPE “2” AND REPEAT THE MESSACE. 

OPERATIONAL SWITCH SETTINGS 

SAME AS 5.1.2 

PROGRAM AND/OR OPERATOR ACTION 

SAME AS 5.1.3 

TEST GROUP 2 BELL 103A MODEM CONNECT-DISCONNECT TEST 
TEST INITIALIZATION 

THE PROGRAM WILL TYPE “103A CONNECT-DISCONNECT TEST 
ORIGINATE LINE-" AND WAIT FOR AN INPUT FROM THE TELETYPE 


TYPE THE NUMBER OF THE LINE THAT WILL ORIGINATE THE 
CALL (0-17 OCTAL) FOLLOWED BY RETURN. 


TE ae EN Oe eee Ee ge MILL WAIT 


TYPE NUMBER OF THE LINE THAT WILL ANSWER THE CALL 
(0-17 OCTAL) FOLLOWED BY < >. 


THE PROGRAM WILL TYPE “DIAL ANSWERING DATA SET™ 
AND WILL WAIT FOR THE ORIGINATE AND ANSWERING MODEMS 
TO GENERATE INTERRUPTS. 

OPERATOR ACTION TO MAKE TELEPHONE CONNECTION 


TER THE MESSAGE “DIAL ANSWERING DATA SET” IS TYPED 


FeoECTE BERGEN RO'T Basta > 















WONDUWCOKUHO 





GIGI) GI GIGIOIG) WIG) 


9 & +b Pm bp hop = pops 





Bia iukt RAR Spt toh tnt cob in ek whan sala 
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5.3.2.2 PLACE ORIGINATING DATA SET IN “TALK” MODE 
§.3.2.3 Rie RiAL ANSWERING DATA SET FROM ORIGINATING 


5.3.2.4 LISTEN FOR TONE IN HANDSET OF ORIGINATING CATA SET. 


SRA 7S “HTH SUTIN 


“DATA” LIGHT SHOULD ILLUMINATE 
5.3.2.5 “DATA” LIGHT ON ANSWERING DATA SET SHOULD BE LIT. 


5.3.2.6 THE PROGRAM WILL NOW WAIT FOR 
INTERRUPTS FROM THE DM11-88. 


9+3-8+7 Fhe PROGRAM TYPES “STRIKE ANY TTY KEY 10. DISCONAECT™. 


WHEN A TTY KEY IS STRUCK, THE PROGRAM WILL BEGIN THE 
DISCONNECT SEQUENCE. 


5.3.2.8 WHEN THE DISCONNECT SEQUENCE HAS BEEN 
PROGRAM WILL TYPE “103A esr COMPLETE” 
AND WILL REQUEST THE OPERATOR TO SELECT NEW LINES. 
5.3.3 PROGRAM ACTION IN CASE OF ERROR 
5.3.3.1 RING ON INCORRECT LINE 


Ciné OR deny OER Theol fzOn Getibes RING 1s. 


TED BEFORE RING 
° ge REQUEST THE OPERATOR 
RS EEE aS AS 


5.3.3.2 OTHER ERRORS 


BG SOS HES TE TRE I A Bl 


INUE TESTING TO COMPLETION 


ote sa 


Ty el 













ry 
ah 


Poe 


» 
ae | 


BESRREOR CSE SE RE ROB se Nol sao ee 
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$.3.4 


5.3.5 


NOTE: 


5.4 
5.4.1 


5.4.2 


5.4.3 


$.4.4 


5.4.5 


JOl 


OPERATION SWITCH SETTINGS 


SW1S=1, HALT ON ERROR 
SW13=1, SUPPRESS ERROR TYPEOUT 


DATA SET MODE SWITCHING 
a HE PROGRAM HAS TYPED THE MESSAGE DESCRIBED 


ORE SWO1 IS SET. THE OPERATOR 
tay siifen” EIT PER DATA SET FROM THE MODE THAT 


A elt Se" DETECTED AT THIS TIME WILL 
Arb The ANSMERING OETA Sey 7 “HUTD AGMER™ BEFORE 


DISCONNECT IS STARTED TO 


i CAUSED BY THE FACT 1 THAT TH THE MODEM 1S 
N THE INCORRECT” STA 
TEST GROUP 3 BELL 202C MODEM CONNECT-DISCONNECT TEST 


TEST INITIALIZATION 


AS 5.3.1 EXCEPT PROGRAM WILL TYPE “202C CONNECT 


SAME 
DISCONNECT TEST”. 
OPERATOR ACTION TO MAKE TELEPHONE CONNECTION 


SAME AS S.3.2 EXCEPT AT END OF TEST, PROGRAM WILL TYPE 
COMPLETE”. 


“e0eC TEST 

PROGRAM ACTION IN CASE OF ERRORS 
SAME AS 5.3.3 

OPERATIONAL SWITCH SETTINGS 
SAME AS 5.3.4 

DATA SET MODE SWITCHING 

SAME AS 5.3.5 
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5.5 


5.5 


5.6 


S.7 


5.8 


NOTE: 


KOl 


TEST RESELECTION 


0 ESCAPE FROM THE TEST IN PROGRESS, AND SELECT 
; ONE TEST, TYPE <CONTOL C>. 


ARO Teen PE NTESI-> AND ALY FOR AN INPUT FROM 
THE TELETYPE KE 

PROCEED AS DESCRIBED IN 4.2.1.8 

ADDRESS CHANGE 

TO A Ma VECTOR AND REGISTER ADDRESS OF THE DM11-8B 


(CONTROL V>. THE 
SIO CUtTON OF THe, T ST IN PROGRESS AND PROCEED AS 


*OML1 ofnckOsTice Witt HoT BE TYPED. 


LINE NUMBER CHANGE 


TSS, APES ESTE 


Ter IN SS_AND ha O THE INITIALIZATION 
AGE OF THE SELECTED TES 


WHEN THE LINE nen 


PROGRAM WILL RESTART BRT THE MOELECTED Tee? USING ING THE NEW 


ERROR IN ENTERING DATA 


FO ALLOW RE TA TYPE tU <CNTL U> BEFORE 
er in mi ING DATA. THIS WILL 

N QUESTION ING RE-ASKED. 
POWER FAILURE 


fe El" EN ELEY Me 


POWER FRILURE-CURAENT TEST WiLL BE RESTARTED". 
THE PROGRAM WILL THEN RUSUME TEST EXECUTION. 
& WALTING FOR AN INPUT FROR’ THE TELETYPE KEYBOARD, 


THE PROGRAM RELL THEN REGUEST THE OPERATOR TO SELECT A TEST. 


LO1 
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SESSRREH ROG IA Volal aed 
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6.0 ERRORS 
6.1 NORMAL OPERATION 


IF BN ERROR 0¢ S WITH ALL SWIT THE PROGRAM 
LL TYPE mH A APPROPR tare ER ERROR MESSAGE AND THEN 
RESUME. TE 
SE ORMATS 
hy me seg, on TYPES DEPENDS UBDN Th THE. 
TEST IN PROGRESS. 
6.1.1 ERROR MESSAGES 
6.1.1.1 UNIQUE ERROR 
ONLY PC OF FAILING TEST IS OUTPUT TO TELEPRINTER 
AN EXAMPLE OF THIS TYPE OF ERROR IS: 
1. AN INTERRUPT AT THE WRONG PRIORITY 
2. A REGISTER BIT WAS NOT CLEARED BY RESET 
6.1.1.2 TRANSITION DETECTION ERROR 
THIS ERROR WILL OCCUR IN ONE OF THE ON-LINE TESTS 


IF BN EXPECTED INTERRUPT DOES NOT OCCUR, OR IF 
XPECTED INTERRUPT DOES OCCUR, ON THE LINES 


FORMAT FOR ERROR TYPEOUT IS 
XXXXXX_ TRANSITION ERROR 
ali Be ot 


XXXXXX=PC+2 OF CALL TO ERROR ROUTINE 


ws ABCRPEEGIED Tener RPT Fuses (aS neaves "> * NP OF CONTROL fears 


CC=LINE ON WHICH 
6.1.1.3 SINGLE LINE STATUS ERROR 


THIS ERROR WILL OCCUR IN ANY TEST, OFF LINE OR ON-LINE 
WHEN, THE EXPECTED AND RECEIVED LINE STATUS ARE NOT 


FORMAT FOR SINGLE LINE STATUS ERROR IS 
XXXX ERROR 


C 

=PC+ ° ERROR ROUTINE 
ARA=EXPECTED Lit STATUS AT TIME OF ERROR 
BBB=RECEIVED LINE STATUS AT TIME OF ERROR 
CC=LINE ON WHICH ERROR OCC 





MO 
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6.1.1.4 FATAL TRANSITION ERROR 





Be | 


210 THIS ERROR WILL OCCUR IN AN ON-LINE TEST IF AN INTERRUPT 
etd OCCURS ON A LINE NOT SELECTED FOR TESTING. 

aie FORMAT FOR FATAL ERROR TYPEOUT IS 

15 XXXXXX FATAL ERROR 

18 CSTAT LSTAT 

215 ARARAR BBB 

19 WHERE XXXXKKEPCHE OF CALL TO ERROR ROUTINE 

_ AAARARER Gey Cee D_CONTROL STATUS ON LINE THAT INTERRUPTED 

25s BBB=RECEIVED STATUS ON LINE THAT INTERRUPTED 
asa 6.1.1.4 CONTROL STATUS ERROR 

SeS THIS ERROR WILL OCCUR IN A TEST THAT PRIMARILY 
527 INVOLVES THE LINE SCANNER 

ese FORMAT FOR CONTROL STATUS ERROR IS 

§30 XXXXXX STATUS ERROR 
$31 EXP REC 
533 
534 WHERE XXXXXX=PC+2 ¥ CALL _TO ERROR ROUT Is 
535 TED CONTROL STATUS AT TIME OF ERROR 
id BBBBBB= =RECEIVED (ACTUAL) CONTROL STATUS AT TIME OF ERROR 
Ae 6.1.1.5 LINE STATUS ERROR 

540 , THIS ERROR WILL OCCUR IN THOSE OFF LINE TESTS THAT 
S41 SET ONE LINE TO A PARTICULAR STATE, AND THEN CHECK 
S42 ALL OTHER LINES 
Bai . 

aap FORMAT FOR LINE STATUS ERROR IS 

S47 XXXX LINE ERROR 

S48 EXP REC LINE SEL 

pa RAR DDD CC OD 

551 WHERE ESTE OF CALL TO oy out INE 

ees tine Ab AT TIME OF ERROR 

BeB=RECETV L T Ane AT TIME OF ERROR 
sS4 : CC=LINE ON WHICH ERROR 
BaP ‘ DD=THE LINE ON WHICH THE PROGRAM WAS OPERATING 


6.1.2 REPEATED ERRORS 


| ee 
a a SAME ERROR OCCURS REPEATEDLY IN A GIVEN TEST 
ONLY HE DATA RELATING TO THAT ERROR WILL BE TYPED 
| S61 IF THE ERROR OCCURS IN THE SAME TEST ON THE SAME PASS 
| 
| 









NOL 
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D 
562 ‘ 6.2 SCOPE LOOPS 
pb NOTE: SCOPE LOOPING APPLIES ONLY TO TEST GROUPS 0 AND 1 
ob6 | 6.2.1 AFTER ERROR HALT 


— oct ON A GIVEN TEST AFTER Roo tN er HALT, 


cE guts \ To, SUPPRESS ERROR NT TES 


SET SWO9=1 TO LOOP ON SAME DATA (IF REQUIRED) 
PRESS CONTINUE 
THE PROGRAM WILL LOOP ON THE SAME TEST. 

6.2.2 FROM PROGRAM START 

6.2.2.1 PROCEED AS DESCRIBED IN 4.2.1.1 TO 4.2.1.4 


6.2.2.2 WHEN THE PROGRAM TYPES “TEST-" SET SW14=1 TO LOOP 
ON THE TEST THAT WILL BE SELECTED 


6.2.2.3 TYPE IN THE NUMBER OF THE TEST THAT IS TO BE LOOPED 
ON (SEE LISTING FOR TEST NUMBER REFERENCE DESIGNATIONS) 


6.2.2.4 Sl: ait WILL LOOP ON THE SELECTED TEST UNTIL 


SBS RRE Sade lolol talc eots 


uw 
ve) 
— 


6.2.3 AFTER <CONTROL> 
SAME AS 6.2.2.2 TO 6.2.2.4 


7.0 RESTRICTIONS 
7.4 STARTING 
7.1.1 FOR 16 LINE SCANNER TEST 
H861 TEST CONNECTOR MUST BE INSTALLED. 
7.1.2 FOR SINGLE LINE CABLE TEST 
DCi1l TEST CONNECTOR MUST BE INSTALLED ON MODEM CABLE 
7.1.3 FOR ON LINE TESTS 
re ie yf IS NOT CONNECTED TO THE DISTRIBUTION 
ete Sie oe JUMPER CARD MUST 


GE INSTALLED IN T Bl OR B3 OF THE DISTRIBUTION 
TO PREVENT LONG SPACE DISCONNECTS. 


BERR R EERE SSS SRR LON 


Se a 
NOucCWM—O 


7.2 OPERATING 


GPOOWONOoo 








ow 
—o- 
eles) 


CRE Be Sebi pian 
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NONE. 


N_ON ty OR “xOR" 
BR GRAN FAULT Fo 16 LINE SCANNER TEST 
H861 TEST TEGNNECTOR MUST BE INSTALLED. 


DEFAULT PARAMETERS (INCLUDING ACT-11 & “XOR™) 


DMBVEC: 300 (AUTOMATICALLY GENERATED 
Rieke woe BY PROGRAM WHEN UNDER ACT-11 OR “XOR™) 


DMBCSR: 170509 
OMBLSR: 170502 


NOTE: SWOO(RESELECT a a ot 


AND VECTORS BECOMES 
INOPERATIVE UNDER ACT-11 OR “XOR™. 


1 















C02 
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638 8.0 EXECUTION TIME 
8.1 16 LINE SCANNER TEST 


cs THE TIME FOR 2 PASSES OF THE 16 LINE SCANNER TEST IS 
64 APPROXIMATELY 1.5 MINUTES. 


645 8.2 SINGLE LINE CABLE TEST 









Eu? THE TIME FOR 12 PASSES OF THE SINGLE LINE CABLE TEST 
Pas IS APPROXIMATELY 1 MINUTE. 
650 8.3 103A MODEM CONNECT-DISCONNECT TEST 





o 
ul 
~ 





TIME THAT : aiSieRING Da get FIRST DETECTS & A RING 
se Sule 0 nt NNECT=; 


APPROXIMATELY 30 COs WILL ELAPSE BETWEEN THE TIME 
THAT THE PROGRAM S_THE ABOVE MESSAGE UNTIL THE 
TIME THAT THE PROGRAM TYPES “103A TEST COMPLETE”. 


8.4 202C MODEM CONNECT-DISCONNECT TEST 


pe? AY 1.5 MINUTES WILL TWEEN THE TIME 
a BNSHERING DATA SET Seth Hpes CTS ERs! RING SIGNAL 
10" THE TIME THAT THE 1 TO DISCONNECT”. 


TIRE THAT THe PROGRAM TYPES THE ABOVE. RESSAGE UNTIL 
THE PROGRAM S BES odee TEST COMPLETE” 


9. PROGRAM DESCRIPTION 
THIS LIED BY A SET GF COMPON PON SERVICE ROUTINES ANO & KEYBOARD 


WHEN INITIALLY LOADED AND STARTED ...SWOO MUST BE SET =1, THE PROGRAM WI 
Peete a faa TH iL. OPERATOR TO INPUT THE PARAMETERS" 


RUE AR Tr, ee 


1p pecelvE bane PROGRAM WILL BEGIN EXECUTION OF THE 


aT any ANY TINE QURING TEST EXECUTION THE OPERATOR MAY 
T PARGMETER Y ENTERIAG THE APPROPRIATE 
coRnEnO vie THE T 


SESRREBRE BS dal total Janse Orne bee Bom RON 









eet 


£35 


Oooo o 
BIRRLE 


SERRE OR SoS 


INN 
el nd od 
fd 


721 
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9. 


D0e 





CONT'D 


BE 


IF 


REQUIRED 


aL RING THE 
AT 
TYP 


REPEATED UNTIL THe OPERATOR INTERVENES. 


UIRED 10 TAKE ACTION EACH TIRE THE TEST IS COMPLETED. 


THE END OF EVERY OFF ties TEST PASS, THE PROGRAM 


ELETYPE 
pe END OF AN ON LINE TEST, A TEST COMPLETE MESSAGE WILL BE 


10. LISTING% 


TITLE DZ0ND-8 
“ENABLE ABS, AMA 
sDRI 1-88 DIAGNOSTIC 


THIS PROGRAM CONTAINS TEST OF THE DM11-BB IN 
OPERATION ONLY 


THE OFF LINE MODE OF 
;SWITCH REGISTER OPTIONS 


Sewe ee ee Se ee we ee 


ON 
SW14=1, LOOP ON 
13-1, 
lls] 
10= 0 


rryeeout 
TEST ON ERROR 
der ar is 


SCONNECT SEQUENCE 
VECTOR AND CONTROL REGISTER ADDRESS 


;AFTER PROGRAM RESTART 


;STARTING ADDRESS FOR ALL TESTS IS 000200 
;RESTART ADORESS=000200 


; TESTS AVAILABLE 


eu ee USING H861 TEST CONNECTOR-FIRST TEST=0 


Test GROUP 


‘CONNECT DISCONNECT TEST FOR BELL 202C MODEMS-FIRST TEST=300 


CLES JER! TS USING DC11 TEST CONNECTOR AND MODEM CABLE-FIRST TEST=100 
CT TEST FOR BELL 103A MODEMS-FIRST TEST=200 


;SYMBOL DEFINITIONS 


Ssonoy 
SWld=4 
Sul 








E0e 


Fa 
2 
B88e0 ** 
6 06 00 00 08 Of we- 
u--Oo Hm 
© aaeeR 2 
ts 
z 
S 
iP 
3 
~ gg 
eae 
; Sees 
= 
2g 
>... 
Be FRE Peery 


me a te me we Se me em eee me 






Sach Rune une it ec RA NARA AeA aa oer 
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FOe 


;REGISTER DEFINITIONS 


GENERAL REGISTER 


ce mate 


;PROCESSOR STACK POINTER 


;PROGRAM COUNTER 


;LOCATION EQUIVALENCIES 


;CONTROL STATUS REGISTER BIT FUNCTIONS 


RO=%0 

1 R1=%1 
ANnNnNNnsS Re=%2 
900003 2%3 
000004 2%4 
000005 RS=%5 
000006 SP=%6 
000007 PC=%7 
177776 = rit 
O14660 Rabi KeoIVIs 
014654 Bie 
014656 GIT=DIVI 
ae BE 
000100 INTENA=100 
000400 ety 
001000 HAINT=1000 
i | = , 
AGAADS aS saat 
100000 RINGF=100000 
000001 LINENA=1 
ooood2 TRMRDY=2 
000010 See ixe 
000020 ee = 
000040 cS=40 
000100 C0=100 
000200 RING=200 
BEDOoT Xeeae! 





iRSeTt “Octhe Dict DIGIT 


3 CONVERSION PORATED T DECIMAL 


LA sEanen pum 


saree (emp 
Ce ME TIP NPUT OF SCRATCH PAD MEMORY 


{SECONDARY RECEIVE TRANSITION WAS 


OUTPUT 
TO OCTAL ASCII 


0 BE INCREMENTED BY 1 COUNT 


TION FLIPFLOPS 


ITION WAS DETEC 


RING SIGNAL WAS DETECTED BY SCANNER 
;LINE REGISTER BIT FUNCTIONS 


es] TIONS ON THIS LINE 
5 SEND TERRI i TeArINEL net READY fo MODEM 

+ 0 SEND T9 MODEM 

ts] S510 SE conan TRANSMIT TO MODEM 

Hs CEIVE TURNED ON BY MODEM 
tl, SEERA TO SEND TURNED ONE BY MODE 
+31, CARRIER TURNED ON BY MODEM 

+21, RING ON BY MODEM 


;SOFTWARE TRANSITION FLAGS 








CTED BY SCANNER 
R TRANS 
IER ITION WAS DETECTED BY SCANNER 
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NOUS WtuHO 


FECHA CRORE Oe COUR Boe 


cee 


a 


2 
8 


a 








GOe 


; INSTRUCTION DEFINITIONS 


PUSH1SP=5746 NT proces OR STACK 1 WOR 
OBI 357 Departs PR OR STA K 1 WO 


=10046 
PusnesPsevove  :DECRENENT ST = fice 
POPeSP=226e6 S INCREMENT STACK TWICE 
;EMT DEFINITION TABLE 


ERRORC=EMT +X CONTROL STATUS ERROR SERVICE 
RRORL=EMT+X iLINE STATUS. ER BO ITERATION 
COPESEMT+X TION SERVICE 

F=EMT+X sDATE, FRE 1 re SERVICE 

TYPE=EMT 


aie rat Ste Eso nee 
Siccias «= EH SARI RTS 
ce ae A a 


+X 
+X : INE AG ERROR 
+X Pak Tol 
+s LINE NUMBERS 
SET UP FOR ON LINE 
CKRING=EMT+X >CHECK FOR RING ON CORRERT LINE 
WAITRNZENT+4X *WAIT FOR TRANSITI 
tet i FS ERTS iDetay rReNerio 
CKINTT=EMT4X CHECK Be eT STYLE 
KBDIN=EMT+X *FAKE INTERRUPT ENTRY 


; TRAPCATCAER FOR ILLEGAL INTERRUPTS 





















HO02 
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BS 
847 ;STANDARD INTERRUPT VECTORS 
224 
en oooce4 yee PFAIL POWER FALL HANDLER 
851 000026 900340 340 ‘SERVICE AT LEVEL 
852 900030 913350 EMTSRV :EMT Are arch MEL toe 
B53 000032 000340 340 *SERVICE AT LEVEL 7 £ 
gsS ono060 .260 ( 
8S6 000060 0017: KBDINT sKEYBOARD MONITOR 
000062 340 *SERVICE AT LEVEL 7 
860 non 74 .2174 
861 000174 © 1:0 DISPREG:0 
Bbe o00172 .° (0 SWREG: 0 
BE4 OF 1] =200 
BES 000200 Ouul37 001100 IMP START 3GO TO START OF PROGRAM 
867 
BCE 
863 
870 
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8 


a ee 


s 


ru 
oe 
Oo 


picisicibinitste Rh ae heatiere bt 
BESSSS88SS SSSSSSSSSSSSSSSSsSsss88 
TORN SE TRE TOR ERROR 


io 


WWW OWDWVWwWW 
0 ee 
WOnNWULW 


-\= 
aC 


a b= baa Be fae Bae P= Fs fe ha = = 2 Fh bh FB be = 0 = eh bb 0 ft ff fo po ee 


SBN FERESRERS 
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001100 
012737 
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fons | Slee! 


8 
z 


- 


oS 
rte 


ROLE 3 


w 
oh 
4 


SBE 222328 


aPFAIL, 24 


= AAO 
ge 


4 


(SP)+,4 ;RESTORE 4 
TIFLG 
+14 





;SET UP POWER F 
: INTERRUPT SERVI a3 VECTOR 
CLEAR TEST IN PROGRESS FLAG: 


;SET_UP K POINTER 
:SAVE VE | S 


iREF ERENCE HARD ARDH SWITCH REGISTER 


;ADJUST_ STACK 

POINT TO SOFTWARE SWITCH REG 
;POINT TO SOFT DISPLAY REG 

sRESTORE’ VECTORS 


ROUTINE 


-SE SVC 
;GOT AN XOR TESTER OUT THERE ? 


IRESTORE TRAPCATCHER 


sTYPED TITLE? 
:TYPE "DM11-BB DIAGNOSTIC” 


#1, TIFLG sSET TITLE TYPED FLAG 
VECSTR t RESTORE TRAPCATCHER 
42 sacT 11?’ 
Treaty 
x S AUTO VECTOR 
vECSTR ;GET VECTOR AND REGISTER ADDRESS 
G,SWR 
1 & 
#1, aSWR 
STARTN 
SSTACK SP ;SET UP PROCESSOR STACK POINTER 
#300, DATAL ness OF ESTE VECTOR 
QDATAL ROVE. BTUs WORD TO VECTOR 
TAG oe US ORD 
Ton GAL INTERRUPT) 
4, DATA 
#4; DATA NEXT CF ETUS WORD 
patal, #1090 31S TABLE CLEARED 
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SRC 

927 001414 001361 BNE VECSTA sIF NOT, CONTINUE 
14 737 ool124e2 TS XFLA :X08 2 
14 2 M TSTG :YES 

a3. pole Hh: Beets . Tero a 

ae e 
ae OC ise 3 ine rag : sGET RESTOR ADDRESS :\ 

bOI 16 MVECTOR Hi SSA E GE VECTOR ADDRESS-" =} 
ase BotuaB Boorea . Lit FOR FOr ADRESS ' 
936 O01442 015750 DMBVEC IST ORAGE 
937 001444 933930 000003 015750 1S: BIT #3, OMBVEC TEST 2 use" OF BoB BBDRESS 
938 001452 001404 BEQ vecsT1 IF 0, CONTINUE 
939 001454 012716 o01444 MOV #1$ SP) 
940 001460 015176 JMP INST s INCORRECT ADDRESS, TRY AGAIN 
941 OO1464 O1 015750 015752 VECST1: MOV DMBVEC, DMBLVL *GENERATE ADORESS OF 
Que go147e 37 o000002 015752 ADD #2, DMBLVL INTERRUPT STATUS WORD 
a3 1509 i O13 INSTRG i? BODRESS OF CO CONTROL REGISTER 
Que DOLeOT t Ermtt POR BObee ce 
946 001506 170670 170670 ‘UPPER LIMIT FOR ADDRESS 
947 001510 015754 DMBCSR :ST F ss 
948 001512 032737 000007 015754 1S: BIT #7, DMBCSR -IF 3 LSB ARE NOT O 
949 001520 001404 BEQ REGST1 
950 boi5ee 012716 001512 MOV #1$, (SP) 
951 001526 000137 015176 IMP INSTER ; INCORRECT ADDRESS, TRY AGAIN 
952 001532 013737 015754 015756 : >SET UP ADDRESS OF LINE STATUS REGISTER 
953 001540 062737 O00002 015756 


BERR RR EERE oad Toul SINS CERO COMES 
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STARTN: i 


X1A: 


X1B: 


JMP 
STRTOA: 


TSTGO: 


1S: 


JMP 
TIPFLG: 0 






K0e 


aSTACK, SP 


TSTNO,RS 
#177077, RS 
RS 


RS 


RS 
FELST ASS, MO TPNT 


STRTOA 
#X1A, (SP) 
INSTER 
#177700, TSTNO 


TSTNO, TSTMAX 
TSTGO 


#1, TIPFLG 
TSTENT 





;SET UP PROCESSOR STACK 
GET TEST NUMBER 


3S 
:GET 
EXTRACT TEST GROUP NUMBER 


T Bite) t T viEST feBL Groue 


igs "O INVALID TEST GROUP 


AGAIN 
;GET NUMBER OF FIRST TEST 
TO BE EXECUTED IN SELECTED GROUP 
1S NUMBER TOO LARGE 


;SET UP PRIORITY LEVEL 


;SET UP DUMMY KEYBOARD RETURN 
CLEAR LINE SELECTED FLAG 
CLEAR TRACE TRAP FLAG 

CLEAR PASS COUNT 


;SET TEST IN PROGRESS FLAG 
START TESTING 









-_ 





= 


a4 OO0O0000000 
Ce ee oe ee en et en 
-— NOU SW O 


ema 


at Go pea fice pa2 B=} A Fe Pe bw Rs eo 8 Be) BF -0 FB f 0 BB Pe fo 
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Re Rice 
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BS FSRBRVSSLZS 
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LOe 


; TELETYPE KEYBOARD INTERRUPT SERVICE ROUTINE 


KBDINT: LR TIPFLG CLEAR TEST IN PROGRESS FLAG 
CLR if i CLEAR SOFTWARE INTERRUPT FLAG 
MOVB KD TWP 
BICB 
CHEB 200, Ir sIF «CONTROL C> {Has agree 
NE OIN1 
TYPE * SELECT "eu AIST 
MCONTC 
POP2SP 
CLR aOMBCS 
CLR JTKCSR 
INP STARTN 
KBDINI: CMPB #26, TMP sIF_<CONTROL V> WAS TYPED 
BNE KBDINe TYPE "tv" 
TYPE VECTOR AND REGISTER ADDRESS 
MCONTV 
POP2SP 
CLR aDMBCS 
LR aTKCSR 
INP VECSTR 
KBDINe: CMPB #14. TMP IF <CONTROL L> WAS TYPED 
BNE tN3 *TYPE "¢L" AND GET NEW 
TYPE *LINE NUMBERS, UNLE 
MCONTL ‘TEST GROUP 0’ WAS IN PROGRESS 
MP #DMYRTI, KRET ‘IF <CONTROL L> WAS TYPED IN TEST 
BEQ OMYRTI GROUP O, I 
POP2SP 
CLR S 
¢LR TKCSR 
INP RET 
KBDIN3: CMP WSUREG, SHR 
MPB #2, THPL 
CNTLUU 
1S: MOV #1, SINTFL :SET SOFTWARE INTERRUPT FLAG 
Adie. HOV #1; TIPFL ‘SET TEST IN PROGRESS FLAG 


KRET: 
SINTFL: 
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000200 
000200 


Ue UU 


013544 
013536 


013524 
013516 


013502 
013474 


et 


TQ: 


INIT1: 


Tl: 
CSTRI: 


Te: 
CSTRe: 


T3: 
CSTR3: 


M02 


; INITIALIZATION CHECK - PERFORMED ONLY AT PROGRAM START 
;VERIFY THAT CONTROL STATUS REGISTER AND LINE STATUS 
SREGISTER WERE CLEARED BY INITIALIZE 


;REFERENCE DESIGNATION 
TYPE ;TYPE "16 LINE SCANNER TEST” 


16 
TSI aDMECSR sTEST CONTROL STATUS REGISTER 

BR ‘ sCONTROL STATUS NOT CLEARED, ERROR 
ist aDMBLSR TEST LINE STATUS REGISTER 
ERROR ;LINE STATUS NOT CLEARED, ERROR 
SCOPE CHECK FOR LOOP 


; VERIFY THAT “INTERRUPT ENABLE” CAN BE 
;SET AND CLEARED. 


;REFERENCE DESIGNATION 
MOV #INTENA, JOMBCSR ;9ET INTERRUPT ENABLE - 
BI #INTENA, JDMBCSR ;WAS INTERRUPT ENABLE SET 


IC #INTENA, JDMBCSR 
BIT HINTENR, @DMBCSR 


SPEAR INT INTERRUPT ENABLE 

‘WAS INTERRUPT ENABLE CLEARED 
: RROR 

One ck FOR ITERATIONS, LOOP 
;VERIFY THAT “DONE” CAN BE SET AND CLEARED 

sREFERENCE DESIGNATION 


MOV QOMBCSR *SET DONE 

BI tDOHE * DMBCSR WAS DONE SET 

ERROR :NO af PROR 

BIC #DONE , 2DMBCSR *CLEAR DONE 

BIT WDONE, SOMBCSR WAS DONE CLEARED 

ERROR. - NO, ERROR 

SCOPE *CHECK FOR ITERATIONS, LOOP 


; VERIFY “MAINTENANCE MODE” CAN BE SET AND CLEARED 
TT NAINT eon 


MAINTENANCE. HODE MODE SET 


RROR 
PEAR MAINTENANCE MODE 
WAS MAINTENANCE MODE CLEARED 


MOV #MAINT, ADNBCSR 
BIT anaINT, @DMBCSR 


BIC #MAINT, dDMBCSR 
BIT anAINT, @DMBCSR 


3;NO, ERROR 
' $CHECK FOR ITERATIONS, LOOP 


NOe2 
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1090 
103! sVERIFY THAT "SCAN ENABLE” CAN BE SET AND CLEARED. 
1885 92350 TY: ;REFERENCE DESIGNATION 
1094 250 012777 OCOO4O 013376 CSTR4: MOV uSCNENA, JDMBCSR ‘SET SCAN 
035 bb2356 032777 000040 013370 BIT WSCNENA, JDMBCSR WAS SCAN ENABLE SET 
4 001 BNE 
a4 RROR 
Bag peeseR A048 000040 013356 ERR #SCNENA, JDMBCSR aes BORN ENABLE 
100 002376 032777 O00040 013350 BIT wSCNENR, JOMBCSR “WAS SCAN ENABLE CLEARED 
10} 002404 001401 BEQ 
103 o02406 104012 ERROR 3NO, ERROR 
103 002410 104002 SCOPE ‘CHECK FOR ITERATIONS, LOOP 
O06 sVERIFY THAT “BUSY” IS SET WHEN “SCAN ENABLE” IS SET 
07 “VERIFY THAT “BUSY” IS CLEARED WHEN “SCAN ENABLE” IS CLEARED 
03 o0e4u12 TS: ;REFERENCE DESIGNATION 
002412 012777 OO0040 013334 CSTRS: MOV #SCNENA, JDMBCSR SET SCAN ENABLE 
002420 032777 000020 013326 BIT #BUSY, 2OMBCSR IS BUSY BIT SET 
002426 001001 [NE +4 
002430 104012 ERROR sBUSY NQT antl ERROR 
002432 042777 OO0040 013314 BIC #SCNENA, JDMBCSR *CLEAR ENABLE 
002440 032777 000020 013306 BIT #BUSY, JOMBCSR 21S Bust BIT CLEARED 
002446 001401 BEQ +4 
002450 104012 ERROR sUSY NOT CLEARED, ERROR 
noe4Se 104002 SCOPE HECK FOR LOOP, TTERATIONS 


;VERIFY THAT SETTING “DONE” DOES NOT CCAUSE AN 
INTERRUPT IF “INTERRUPT ENABLE” IS CLEARED. 


bt Fb = bP Fe BF = bh be a bs Bh bs = 0 0 he Be fe pn ee he be fh fh po pe ee 
RS I ee ee ee et a ee 


VOR SBR URRPORE Bsa oMcon-o 


002454 Tb: ; REFERENCE DESIGNATION 
002454 052737 O00340 177776 INT1: BIS #340, PS LOCK OUT T 
002462 005077 013266 CLR aoMBtsR *CLEAR CONTRO REGISTER 
O024%66 012777 OO0eSe2 013254 MOV #INT1A, DDMBVEC >SET UP INTERRUPT SERVICE ADDRESS 
ope O13777 177776 13250 MOV PS, JOMBL VL SET UP INTERRUPT PRIORITY 
002510 042737 Bogs40 1S 57e ete aGONE , SOMECSR itp NT ERRUP 

tJ 
002516 nea NOP ‘DELAY FOR 1 TERRLPT 
002520 BR INT1B =NO I TERRUP CONTINUE’ 
002522 Oz INTIA: POP2SP ; RESTORE aul, INTERRUPT 
002524 104012 ERROR ED, ERR 
002526 104002 INTIB: SCOPE CHECK Pore LOOP, ITERATIONS 


3 


o— b= 6 -- 9-- p= po pe 


SLFHESHASSBLRY 


£ 
Pe] 


ce = lone 


2 bb 2 = fs 2 hb Ob 8 2 8 = 2 Bho F-2 F 2 O=B = > = 2-2 b= F228 6-2 < H -2 OH 2b -- 0 = F—= & © 0s 0 O- & = HB Hm Bw Hop © 
2b b= 0 b= 6 6 & © 0 2 FB Os 62 & = 0 b= B+ 0-2 9 = O42 Fb = = = 6-2 § 2 = cB & 2 2 ho >  -2 BH 0-9 HOH 2-0 Ho 


BIRRPSH Bsa eadZIn-sSSSECERLER-SSBVRALOHAS 


SS 
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; VERIFY THAT NO INTERSPT OCCURS WITH “INTERRUPT ENABLE” 
;SET AND “DONE” CLEARED. 


17: : REFERENCE DESIGNATION 
052737 000340 177776 INT2: Bi #340, 25 ‘ie out INTERRUP 
aeao95 pasese 013200 MOV 8INTCA, JOMBVEC CONT ERRUPT ISreR ADDRESS 
013727 177776 013174 MOV PS SDMBL VL ier UP INTERRUPT SERVICE LEVEL 
900109 013170 BIS SINTENA, SDMBCSR : NT; 
042737 l BIC #340, PS * ALLOW THTERRUP TS _ 
g00240 NOP :DELAY FOR INTERRUPTS 
poo402 BR INT2B NO I CONTINUE 
022626 INT2A: POP2SP “RESTORE STACK 
104912 ERROR + ERROR 
104002 INT2B: SCOPE :CHECK FOR ITERATIONS, LOOP 
:VER IFY THAT SETTINS “DONE” CAUSES AN INTERRUPT 
WITH “INTERRUPT ENABLE” SET 
T10: REFERENCE DESIGNATION 
000340 177776 INT3: BIS 8340, PS *LOCK OUT INTERRUP 
31 CLR ; CLEAR GISTER 
l hes 013124 MOV 8] SOMBVEC SET UP TO UTCE ADDRESS 
012777 000100 izle MOV BINTENA, SOMBCSR :SET “iNTERauet ENABLE” 
013777 17777 Olalle MOV PS VL >SET “INTERRUPT LEVEL” 
ay 600340 177776 BIC #340, PS "ALLOW INTERRUPTS 
013100 BIS 8DONE , JOMBCSR SET * 
NOP :DELAY FOR INTERRUPT 
013070 CLR QOMBCSR 
104012 ERROR s INTERRUPT OCCURED, ERROR 
I Br INT3B s CONTINUE 
INT3A: 2SP ‘INTERRUPT OCCURED, RESTOR STACK 
104002 INT3B: SCOPE :CHECK FOR ITERATION, LOOP 
sVERIEY THAT NO INTERRUPT OCCURS WITH 
T ENABLE” SET AND “DONE SET. AT PRIORITY 7. 
Titi: cur STEER CONTROL REGISTER 
phacag 177776- BIC a0, PS cele CeO PRIORITY 
177776 BIS #340, PS 
12028 MOV 4a" SDMBVES NTERRUPT SERVICE ADDRESS 
1 1 MOV PS, JDMBLVL Set UP INTER NTERRUPT SER SERVIC: LEVEL 
0001 013016 HOV STATENA @OMBCSR ; 
Bis BOONE, SOMES ars tae 


BR 
INTYA: POP2SP RESTORE 


Bt 
01 
teeret 
ae 013000 COR SR 
ae raat: NO_ INTERRUPT CONTINUE 
i INT4B: ECPE NECK FOR "Seunen ERR, 





Br en ee a ae LT TL 
i 
| 


3 


BBSRR LOGS OS 


f= 6-2 Fs Fao hs ho = Bs B— Po P= B-0 P= Pw Be 
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cen anaes 
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b-2 bes Gao gee 
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33 


OoOo0O00-~ 
Ba - peo 





CO3 





RIFY THAT NO INTERRUPT OCCURS WITH 
“INTERRUPT ENABLE” SET AND “DONE” SE 


ar R REAR CONTROL ReGTSTe 
BIC ties “SET PROCES PRIOR! Y 
BIS #300, PS TO LEVEL 6. 
MOV SINTSA, JOMBVEC “SET UP INTERRUPT SERVICE ADDRESS 
MOV PS, JOMBL VL ‘SET UP INTERRUPT SERVICE LEVEL 
MOV eT NTENA @DMBCSR :SET INTERRUPT ENABLE 
BIS , 20M *GENERATE INTERRUPT 
NOP :DELAY FOR INTERRUPT 
CLR 3OMBCSR 
INTSB NO INTERRUPT, CONTINUE 
INTSA: POP2SP RESTORE STACK 
RROR + T OCCURED, ERROR 
INTSB: SCOPE *CHECK FOR ITERATION, LOOP 
;VERIFY THAT NO INTERRUPT OCCURS WITH 
>“INTERRUPT ENABLE SET AND SBORES SET AT PRIORITY 
T13: REFERENCE DESIGNATION 
INTE: as @OMBCSR ‘CLEAR CONTROL REGISTER 
BIC 8340, PS 3 SE PROCESSOR PRIORITY 
BIS 8240' PS TO LEVEL 
MOV SINTGA, OMBVEC SET UP I SERVICE ADDRESS 
MOV PS, JOMBLVL >SET UP INTERRUPT SERVICE LEVEL 
MOV sINTENA, JOMBCSR >SET INTERRUPT ENABLE 
BIS #D0NE, JOMBCSR : GENERATE INTERRUPT 
NOP ‘DELAY FOR I T 
CLR QOMBCSR 
BR INTEB INTERRUPT, CONTINUE 
INTEA: POP2SP RESTORE TACK ee. 
ERROR SINTERRUPT OCCURED, ERROR 
INT6B: SCOPE *CHECK FOR ITERATION, LOOP 
;VERIFY THAT NO INTERRUPT OCCURS WITH 
>"INTERRUPT ENABLE” SET AND “DONE” SET AT PRIORITY 4. 
T14: ; SIGNATION 
INT?: CLR @DMBCSR : RESISTER 
BIC 8340, PS *SET PROCESSOR PRIORITY 
ao & B SOMBVEC beer tpt ti ICE ADDRESS 
BY Si dooce ist aie cer = om 
ROP » SORES GENERATE INTERES 
et ; Y FOR I T 
CLR SOMBCSR 
BR INT7B ;NO INTERRUPT, CONTINUE 
POpesP RESTORE STACK 


SINTERRUPT OCCURED, ERROR 
"CHECK FOR ITERATION, LOOP 


2 
5 








eo e7(732) + 11-0CT-76 
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177776 
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BEG 177776 
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;VERIFY THAT AN INTERRUPT OCCURS WITH “INTERRUPT 
‘ENABLE SET AND “DONE” SET AT PR PRIORITY 0. 
RENCE DESIGNATION 
cuR a sCLERR CONT! ROL REGISTER 
MOV OS weve ort uP int SERVICE ADDRESS 
CLR SOMBL VL SET UP_ INTERRUPT ICE PRIORITY 
81S #80,PS iE! PROCESSOR PRIORITY TO LEVEL 0. 
MOV SINTENA, JOMBCSR >SET_INT T ENABLE 
BIS #DONE, JOMBCSR *GENERATE INTERRUPT 
NOP :WAIT FOR INTERRUPT 
CLR 2OMBCSR 
ERROR ;NO INTERRUPT, ERROR 
BR INT1OB sCONTI 
: POP2SP 3 IN T OCCURED RESTORE STACK 
: SCOPE *CHECK FOR INTERATIONS, L 
sVERIFY THAT AN INTERRUPT OCCURS WITH “INTERRUPT 
>ENABLE™ SET AND “DONE” SET AT PRIORITY 1. 
sREFERENCE DESIGNATION 
CLR SOMBCSR ;CLEAR rat GISTER 
BIC #340, PS * ALLOW ) 
MOV SINTL1A, SOMBVEC get el SERVICE ADDRESS 
gre rr ET E UORIORT TY CO TEVEL 
MOV SINTENA, DDMBCSR BET ieaet Fuel 
BIS aDONE , BOMBCSR GENERATE INTERRUP 
NOP WA INTERRUPT 
CLR QOMBCSR 
ERROR NO INTERRUPT, ERROR 
BR INT118 $CONT INE sstuet tad 
: SCORE SINTER FOR R NTERAT LONG: LOOP. 
sVERIFY THAT AN INTERRUPT OCCURS WITH INTERRUPT 
sENABLE™ SET AND “DONE” SET AT PRIORITY 
: DESIGNATION 
gre IRC tAttOW INTERRUPTS 
Rov ; SINT IOR, ADMBVEC CET UP UP I SERVICE ROORESS 
BIS thins ie Processor Pr PRIOR, TY 0 LEVEL 2. 
MOV #INTENA SONBCSR 


ERROR NTERRUPT, ERROR 
RESTORE. STACK 
SINTER FOR R INTER stone 
















E03 


OZDMOB. 
1298 

iSs0 T20: SIGNATI 

1308 Spaure 905077 012252 9% Int i3: CUR QQMBCSR OEE BR CON REGIS 

1308 109 12777 Ooss60 012232 Roy SINT LA, 2OMBVEC aL OM uP INTEPTS 

1306 140 177776 BIS thins iat proes ERR PR “Service, Pac 

He eee err Geese Sle Se a a 

1308 Besead Baoan ROP ; tWAIT F 

Hit BESS EE oxzzn rh, soecsh 

131 104012 ERROR iN INTERRUPT, ERROR 

1318 OOeeee  bopeos INT] : POP P = INTERRUPT occ RESTORE STACK 
1315 peace 1 INT138: SC INTER FOR aNTERRY ONS: LOOP. 
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;VERIFY THAT AN INTERRUPT OCCURS WITH “INTERRUPT 
‘ENABLE SET AND “DONE” a: T PRI bRiry 5, 
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0 


177776 


(Ftd: 


LINTIA: 


LINTIB: 


T22: 
LINTe: 


LINT2A: 


LINT2B: 


; VERIFY THAT ALL LINE NUMBERS CAN BE WRITTEN INTO AND 
READ BACK FROM LINE COUNTER 


sUSING “STEP” MODE, VERIFY THAT THE 
LINE COUNTER CAN BE STEPPED THRU ALL STATES. 


FOS 






;REFERENCE DESIGNATION 
; CLEAR ig wt STATUS REGISTER 


dOMBCSR 
g3N0 PS SENABLE I EXPEETED LINE 
#16. ,RO iat te to TO fest NEINE NUMBERS 





RS,R4 Are EXPECTED AND RECEIVED 
LIATIB iL 
H 





Reo" 7 a 


‘POSTE LE CO, 


LINTIA 
CHECK FOR ITERATION, LOOP 


;REFERENCE DESIGNATION 





ENABLE I 
: STATUS REGISTER 
1 RO IGE Cele TE ALU Sy 
15: shlacsR ieiest VALUE =0 
sSTEP ,SOMBC SR :S INE COUNTER 
aereger :READ LINE, COUNTER. 
List2e *RECEIVED LINE NUMBERS 
ACE PON Bae Piece 


;UPDATE EXPECTED LINE NUMBER 








;CHECK FOR ITERATIONS, LOOP 
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oe 
beeles) 
bad Os 


Srnesea 
pened Fat Ete be 
eae Sa 
2 an 
$ 


wt) 


o 
Ty 
~ 





-_ 
tan 
= 
ta 


+ 


+ 


seseesestt 


Zeees 
Shore 








G03 





;WRITE 1°S INTO ALL SCANNER MEMORY LOCATIONS. 
iV wit THAT ALL LOCATIONS HAVE BEEN WRITTEN 


VERIFY THAT rSherR SCAN” CLEARS ALL SCANNER 
“MEMORY LOCATIONS. 
sREFERENCE DESIGNATION 

MOV #CLRMUX, JDMBCSR * CLEAR TATUS REGISTER 
BIC #340, sENABLE INT S 
MOV -SET UP 0 TEST 16 LOCATIONS 

S SOBiAT+17 QOMBCSR >SET MAINTEANCE MODE 

5 , JOMBCSR hh ite 
DEC A WRI TING. 1’ i Ss oe 


MEMT1A BLL MERORY WORDS 
#16. ,RO 0 TE WORDS 


ST 16 
CTED STATUS REGISTER 
iat WITH LINE 
: MEMORY 
fe 


che RS RY ; COMPARE EXPECTED AND RECEIVED 
BeBe NEM PONTROL STATUS OR MEMORY ERROR 
SCOPEF ;CHECK FOR DATA FREEZE 
: Ine RS ;UPDATE EEXPECTED STATUS 
RO sUPDATE L LINE COUNT 
MEMT1B ;CONTI 
: MOV SCLRSCN, DOMBCSR >SET * SCAN” 
BIT 8BUSY, SOMBCSR *WAIT FOR “CLEAR CYCLES” 
MOV ib ,RO SET UP TO TQ TEST 16 MEMORY 
CLR Ro :LOcaT tons 9 ; 
Bie STEP aorecse :ACCEDS SeRNER FEnORY 
CMP sOrecsR ss “ Cone "Bvpecten AND RECEIVED 
Fee orc ea STATUS OF MEMORY ERROR 
SCOPETF i TROL DATA FREEZE 
: INC RS CTED DATA 
fe poate Le COUNT 
MEMTIE :CONTT 


; CHECK POR ITERATIONS, LOOP 


g 
x 















HO3 
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14 

i sWRITE 1°S INTO SELECTED SCANNER MEMORY LOCATION. 

14g *VERIFY THAT ONLY SELECTED LOCATION WAS WRITTEN INTO. 

l 116 Te4: RE SIGNATI 

: Boule 005077 011632 wrt. MEMTe: CLR ODNBCSR RFE BR COnTROL STAT REGISTER 
ae | 7777 

1 155 15780 aeear MOV #16.) a ADDRESSES 

1410 134 1270 00001? MOV #17. Re FIRST ADDRESS 1) BE TESTED=0 

1411 140 01 OO4000 011606 MEMT2A: MOV #CLASCN, ADMBCSR CLEAR ACANNER MEMORY 

141 Dov 146 030777 000020 011600 BIT #BUSY, JOMBCSR *WAIT FOR CLEAR CYCLE 

Mia Goulse 012777 ned 011570 NOV _ANRINT, DMBCSR :SET “MAINT nove” 

1415 Dowie 11564 BIS R2, dOMBCSR T LINE CBUNTER ST ADDRESS-1 

1416 O04] O11556 BIS aStEP, JOMBCSR tPRITE | S INTO INTO TEST, AODR ADDRESS 

Hig Bam Ble Baugan SUSS0 eee ee 

14) dove10 b1772 000017 011536 MOV #17, SOMBCSR >SCANNER MEMORY LOCATIONS 

1 16 INC Re 

1421 004220 1 CLR Ri 

1ige DO ee; 011524 MEMT2B: BIS #STEP, JDMBCSR ACCESS SCANNER MEMORY 

hea wen toe green SP Satie cone 

ise see 1 CNPB Rd’ Re fe SCANNER MEMORY 

Ick Goviowg 1 BNE MERTOC 

1 070000 BIS #70000, RS 

1428 OO04246 2040S MEMT2C: CMP R4,RS sCOMPARE EXPECTED AND RECEIVED 

1429 bowiesd 001403 BEQ MEMT2D > VALUES 

14 104000 ERRORC “SCANNER MEMORY ERROR 

1431 O04254 190g SCOPEF *CHECK FOR DATA FREEZE 

1432 O04255 O04] MEMTCA 

1433 doveed 1 MEMT2D: INC Ri 

1434 ;TEST NEXT SCANNEB LOCATION 

1435 004264 001356 

1436 O04265 sUPDATE LINE COUNT 

1437 004270 001323 

1438 004272 sCHECK FOR ITERATION, LOOP 
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Seat IONS SET TO 1°S, 
Th ONLY SELECTED LOCATION WAS CLEARED. 


sis Se 


: 


S535 SSERERREREE 
ae 
sense 


s 





;REFERENCE DESIGNATION 
; CLEAR oat, gtarus REGISTER 


Lv TO feat, 16 SSES 
FT ne, TO BE TESTED=0 
SURITE 1’S INTO ALL SCANNER 
MEMORY LOCATIONS 


;SET_LINE COUNTER TO TEST ADDRESS-1 
ITE OF 0’S 8 Test ALL iF ‘osteo 


MORY LOCATIONS 


READ CONTENT SCANNER Se ny 
;SET_UP B EXPECTED CONTENT parents 
OF SCANNER ME 


ST ECEIVE EXPECTED AND 
CEIVED VALUES 


MEMORY ERROR 
fee FOR DATA FREEZE 


; TEST NEXT SCANNER LOCATION 
;UPDATE ADDRESS COUNT 
;CHECK FOR ITERATION, LOOP 


eS 


0 0 bo ba be Bo po han fw Pe pne =~ 
RESSe SRR Pee R 
= 


Goes Seas 


eae tetcte 
BS 
y 


a 


a 


=) 
b= 


HUW: FUT 
Bae Ga tas bab bas hae bas bao ome 
WONOWCWMH-O 


nina Be Das Fee f= bo Paw Bas hee fie fee Bo 
tat 
oS 
= 
bo 
= — 
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Bossa 177776 
000020 


002000 


000400 


011160 
011154 
000000 


011142 


T26: 
MUX1: 
MUXIA: 


MUX1B: 


MUXIC: 


MUX10: 


MUXIE: 


MUX LF: 


JO3 


; VERIFY THAT LINE ENABLE FUNCTION FLIP-FLOP CAN 
;BE SET AND CLEARED FOR SELECTED LI 


tins 
#16. ,RO 
hey , OOMBCSR 


SSTEP, JOMBCSR 
MUX1B 

RS 

R1,dDMBCSR 


Dts 





sEXAMINE NEXT |.INE 


BEAD Lie STATUS REGISTER 
NE ENABLE 


aN ck K FOR LOOP ON SAME DATA 


;SELECT NEXT LINE 
;DECREMENT LINE COUNT 


TINU IF NOT DONE 
: CHECK FOR ITERATIONS, LOOP 


















;REFERENCE DESIGNATION 

sCLERR CONTR gtaTus REGISTER 

;SET UP TO TEST 16 FUNCTION FLIP-FLOP 
START AT LINE O 





;SELECT LINE TO BE TESTED 
;SET LINE ENABLE FUNCTION FLIP-FLOP 


ree ah an lye REGISTER 
ROL STATUS REGISTER 


SEEN SPREE BE ECTED LINE NUMBER 
EXCEPT LINE ENABLE FUNCTION FLIP FLOP 


310 BE SET 
COMPARE EXPECTED AND RECEIVEY 
;LINE STATUS ERROR 






;SET LINE COUNTER TO aeLecieD LINE 
ieee LINE ENABLE FLIP FLOP 
AY FOR CABLE 
TO 
FUNCTION FLIP FLOP 


LINE STATUS ERROR 








3 
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o 
Z 
4 
* @ 
=< 
-_ 
o~- 
fu 


Pet bs b= 2 b> b= Ot Ds ho Pies fe fe Be Bae 


EMAAR AR ARRAN CCE 


2 hs Oe hh Bae ba han Oe Bs an ae ne ae Pe hs fw Pe Pe bas Fo ns Bs Dae Po Po be Be ne 


sia ha Ata halal alae 


KO3 


dDMBCSR 
#340, PS 
od , @OMBCSR 


SHRPRDY RS 
MUK2D 


#STEP, JOMBCSR 





;CHECK FOR ITERATIONS, LOOP 






;VERIFY THAT TERMINAL READY FUNCTION FLIP-FLOP CAN 
:BE SET AND CLEARED FOR SELECTED LINE 


REF RENCE DESIGNATI 

:CLE ae OL STATUS REGISTER 
SENABLE INTERRU 

ital aru TE P 16 FUNCTION FLIP-FLOP 


;SELECT LINE TO BE TESTED 
;SET TERMINAL READY FUNCTION FLIP-FLOP 


;READ ah se REGISTER 
CON RE 


;READ GISTER 

;CLEAR ONAAN 

;IF LINE NUMBER=SELECTED LINE NUMBER, 
sEXCEPT — READY FUNCTION FLIP’ FLO 


310 BE SET 
;COMPARE EXPECTED AND RECEIVED 


3RESULTS 
;LINE STATUS ERROR 


;EXAMINE NEXT LINE 


;SET LINE COUNTER TO SELECTED LINE 
;CLEAR TERMINAL READY FLIP FLOP 
AY FOR CABLE 


{DITTO 
PREAD LINE STATUS REGISTER 
inRs TERMINAL READY FUNCTION FLIP FLOP 


*NO, LINE STATUS ERROR 
>CHECK FOR LOOP ON SAME DATA 


;SELECT NEXT LINE 
; DECREMENT Lin. COUNT 
;CONTINU IF NOT DONE 





po oe ee Ce ee ee 


LO3 
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ZDMDB . 
1567 :NER FY THAT R TT F ON FLIP-FLOP CAN 

13 SEY TA CREMES ER SEALE 

1570 005030 130: sREFERENCE DESIGNATION 

13 Betsy Ous7a7 OOOGND 177776 MUxs: he | Sue sCLERR CONTHOL, STRTUS REGISTER 

1573 goso4e 12700 000020 MOV #16.,RO SET UP TO TEST 16 FUNCTION FLIP-FLOP 
1574 1 CLR START AT LINE O 

1575 Oier7? 002000 010676 MUX3A: HOV aCLRMUX, , DDMBCSR 

By RE He WER cous BBO, © RBFRLABY 18 SEER ari 
1258 aura oOo eY CLR JDMBCSR 

1580 005100 005005 MUX3B: CLR RS 

1581 102 017704 010650 MOV SDMBLSR, RY ey STATUS REGISTER 

1586 108 17703 010642 MOVB  @DMBCSR’R3 iRE CONTRO ROL STATUS REGISTER 

lees ii Hie vehi ate #177760, me ITE TIN, NUMBERS 

1585 poeta rater BNE MUX3C “EXCEPT REQUEST “Sele ND Fu FUNC GHC TION EL Erie FL 
1586 00Si22 012705 oco004 MOV #RS, RS ae we ot 

1588 005126 O20S04 MUX3C: CMP RS,R4 “COMPARE EXPECTED AND RECEIVED 

ES Geis ipa Fly, Cae Farus eon 

1591 aed {pup03 EE OPEE ; 

1592 005136 005140 MUX3D 

1593 005140 052777 OOO400 010606 MUX3D: BIS #STEP, 2DMBCSR EXAMINE NEXT LINE 

1594 005146 005302 DEC R2 

1595 9051S0 001 BNE 

15% 005152 05005 CLR RS 

tea Boeies piotag Ol — > eo ;SET LINE COUNTER TO SELECTED LINE 
1599 Boetee 010570 CLR JOMBLSR ‘CLEAR REQUEST TO SEND FLIP FLOP 

1600 005166 1obee7 INCB #0 sDELAY FOR CABLE 

1601 0051 1375 BNE *DITT 

1602 005174 017704 O105S6 MOV SDMBLSR, RY thy READ LINE TATUS REGISTER 

1603 005200 at TST TO SEND FUNCTION FLIP FLOP 
tebe Missed aed eaoot PRRORL or ict LINE STATUS ERROR 

ibe 005206 tiie MUX3F: SCOPEF *CHECK FOR LOOP ON SAME DATA 

1607 005210 O0S0S0 MUX3A 

1608 065212 005201 INC RI LECT “Lhe Eun 

ie Bei Bon oN earn For Ga 

1611 O0S220 104002 SCOPE CHECK FOR ITERATIONS, LOOP 
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ss 
4 

000020 
002000 
000020 
010474 
000010 
010462 
0104S6 


010450 
177760 


000016 


000400 


010402 


eta 


010364 


177776 


010504 


010470 


010414 


T31: 
MUX4: 


MUXYA: 


MUX4B: 


MUXHC : 


MUX4D: 


MUX4E: 


MUX4F : 


;VERIFY THAT SECONDARY TRANSMIT FUNCTION FLIP-FLOP CAN 
;BE SET AND CLEARED FOR SELECTED LINE 


40, Ps 
#16. ,RO 


Rl 
#CLRMUX, JDMBCSR 


Ri, SOMBCSR 
astBTX, GON SR 


5 
@DMBLSR, RY 
JOMBCSR, RS 

#177760, R3 
Rl R3 
MUX4C 
#SECTX,RS 


RS,RY 
MUXYD 


all lait 
MUX4B 
R1,dOMBCSR 


R1’R3 
JDMBLSR 


;REFERENCE DESIGNATION 
:CLEAR C NTROL STATUS REGISTER 
jENABLE NTER 

‘SET UP TO TEST 16 FUNCTION FLIP-FLOP 
setaRT AT LINE O 


;SELECT LINE TO BE TESTED 
SET SECONDARY TRANSMIT FUNCTION FLIP-FL 


;READ LINE STATUS REGISTER 
READ CONTROL STATUS REGISTER 
: CLEAR D BITS 


UNWANTE 
IF LINE NUMBER=SELECTED LINE NUMBER 
EXCEPT SECONDARY TRANSMIT FUNCTION FLIP 


310 BE SET 
; COMPARE EXPECTED AND RECEIVED 


sRES 
;LINE tatus ERROR 


EXAMINE NEXT LINE 


;SET LINE COUNTER TO SELECTED LINE 
sRLEAR BF SECONDARY TRANSMIT FLIP FLOP 


DITTO 
READ LINE STAN REGISTER 
SHAS SECONDARY TRANSMIT FUNCTION FLIP FL 


NO, LINE STATUS ERROR 
:CHECK FOR LOOP ON SAME DATA 


; SELECT text LINE 
;DECREMENT LINE COUNT 
;CONTINU IF “NOT DONE 

;CHECK FOR ITERATIONS, LOOP 
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wo 
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Fee 
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010334 


000340 


000020 
000020 
010310 
000003 
010276 


01027e 
010264 


000143 


000400 
000001 
010212 
000002 
000000 


010174 


010154 


AND TERMINAL 





NO3 





? 


; VERIFY THAT CLeOR 1 peNO BND ARRIER_ARE SET IF “LINE ENABLE” 


E SE SELECTED LINE, 
REFERENCE DESIGNATION 
SDMBCSR CLEAR CONTROL REGISTER 
#340, PS jENRELE INTERRUPTS 
#16. ,RO >SET UP TO TEST 16 LINES 
‘START AT LINE O 
#16. ,R2 16 LINES 
R1, JOMBCSR >SELECT A LINE 
#LINENA+TRMRDY,ODMBLSR ;SET LINE ENABLE +TRMRDY 
JOMBCSR *CLEAR CONTROL REGISTER 
*CLEAR EXPECTED 
JOMBLSR, RY ;READ STAT 
JOMBCSR’ R3 EAD L 
#177760, R3 CLEAR UNWANTED BITS 
R1,R3 IF RECEIVED LINE=SELECTED LINE 


EXPECT LINE ENABLE AND 


MUXSC 
#L INENA+TRMRDY+C0+CS, RS 
;CLEAR TO SEND AND CARRIER ARE SET 
R4Y,RS ;COMPARE EXPECTED AND 
M550 RECEIVED RESULTS 
;LINE STATUS ERROR 


#STEP, JDMBCSR ;UPDATE LINE COUNTER 
R2 >CONTINUE IF ALL CHECKS 
MUXSB ARE NOT DONE FOR THIS LINE 
#LINENA, RS “EXPECT LINE ENABLE 
WRB ON SELECTED LINE 
R1; JDMBCSR >SELECT LINE 
aTRIRDY, JOMBLSR CLEAR TERMINAL 
#0, ;DELAY FOR CABLE 
JDMBLSR, R4 SREAD D LINE star REGISTER 
RS,R4 > ONL SHOULD BE 
MUXSF ;SET on THIS LINE 
“LINE STATUS ERROR 
;CHECK FOR LOOP ON SAME DATA 
R1 ;UPDATE LINE NUMBER 
JOMBLSR CLEAR LINE STATUS REGISTER 
RO 5 CON TINUE IF ALL LINES NOT 





‘CHECK FOR ITERATIONS, LOOP 
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133: 
MUX6: 


MUXBA: 


MUX6B: 


MUXEC: 





; VERIFY THAT RING IS SET IF “LINE ENABLE” 
AND REQUEST TO SEND ARE SET FOR SELECTED LINE. 


¥ 


Se 


Lond! *] 
= 
35 


i: uae 


S 


3 










;REF ERENCE DESIGNATION 


;RECEI The 


ITT ro ae 

: LINE STATUS REGISTER 
ONLY LINE ENABLE SHOULD BE 
*SET ON THIS LINE 

SLINE. ST 


ATUS ERROR 
;CHECK FOR LOOP ON SAME DATA 


ale STATUS REGISTER 
F ALL LINES NOT 


fest FOR ITERATIONS, LOOP 
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a eos 
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000400 


000001 


007564 
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aR Ge THAT SECONDARY REC 


Ri. aOMBCSR 
8 INENA+SECTX, JOMBLSR 
DOMBCSR 


C 
#LINENA+SECTX+SECRX, RS 


gyre enangecce 


Sa 


S33m 


Lam? *] 
a 
3a 


oe 


- 


An 


Sc 


= 








1S SET IF “LINE ENABLE” 
T FOR SELECTED LINE. 


;REFERENCE DESIGNATION 
5 ee INT REGISTER 


er Boece aD 
Ge Ute ee 
CONTINUE. TEALL CHECKS 


sean NOT mae FOR THIS LINE 
EXPECT LINE ENABLE 


3 ON SeLetTep LINE 

: bite 

; CONDARY TRANSMIT 

: RY FOR CABLE 

READ LINE TATUS REGISTER 
ONLY L SHOULD BE 
SET ON THIS LINE 

: STATUS ERROR 


3L 
;CHECK FOR LOOP ON SAME DATA 


Chen LIne STATUS STATUS REGISTER 
ae F ALL LINES NOT 


;CHECK FOR ITERATIONS, LOOP 
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a3 


Saal | 


1 


f- 2 B= b= f= p- Bh -2 o-2 P-- Be 


SeePaeee 


Eee 


8 
B 


coco cD aD Co a ao ao a aD: 
Apr moraine tera 
OnNMU£ WHO 

: 

= 


ene 


bas 


9-2 b+ b= pHs f+ b= > Path = B+ Bae Be P= =< b= P= Ph = = FB Bh Hh BB 





: 





DO4 






ti FY THAT “CLEAR MULTIPLXER” CLEARS ALL MULTIPLEXER 
TION FLIP-FLOPS 







13S: sREFERENCE DESIGNATION 
MUXB: CLR QOMBCSR *CLEAR CONTROL REGISTER 
BIC #340, PS 5E i TS 
MOV #16./R0 :SET to Test 16 LINES 
MUXBA: MOV sHATE OAS NTO ALL MUL 
BIS aSTEP, JDMBCSR ION ENT PFLOPS 
CL RS bes ;SET UP FOR 16 LINES 
MOV #16. ,RO 
MUX88: #CLRAUX, JDMBCSR ; CLEAR MULT IPLEXER 
MUXB8C: MOV R3, dOMBCSR >SELECT LINE 
HOV SDABLSR, RS $REAO LINE STATUS REGISTER 
is RY Ens AS LINE STATUS REGISTER CLEARED 
ERRORL _— sLINE STATUS ERROR 
SCOPEF >CHECK FOR LOOP ON SAME DATA 
mm PE Bree gras THESE ca tor ine 
SOMBER ; LINE STATUS REGISTER 
CMP RS,R4 31S ANYTHING BUT LINE ENABLE SET 
BEQ MUXBE 
ERRORL LINE STATUS ERROR 
SCOPEF >CHECK FOR LOOP ON SAME DATA 
MUXBE : tN - R3 TE LINE NUMBER 
CLR SDMBLSR T LI 
C RO >CONTINUE IF ALL LINES NOT 
BNE MUX8C * TESTED 
SCOPE ;CHECK FOR ITERATIONS, LOOP 


EO4 


= 
3 
wn< 
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re 
1833 sWRITE 1°S INTO ALL SCANNER MEMORY LOCATIONS 
1834 :SET “LINE ENABLE FOR ALL LINES 
1835 ‘VERIFY THAT AN ENTERRUBP SCCURS FOR EACH LINE 
837 006 340 T36: REFERENCE DESIGNATION 
006340 012777 002000 007406 SCNT1: MOV #CLRMUX, JOMBCSR CLEAR ALL MULTIPLEXER FLIPFLOPS 
939 7402 CLR aDMBC | CLEAR CONTROL pruete 
at ois a biel: aM i gs iSET UP TO io WRIT’ SRE Tes INTO 
1370 atatg 007362 MOV taeiAT #47 DOMBCSR LOCATION 
900400 007354 SCNTIA: BIS eee HMRTTE Oe A A LOCATION 
1 007350 HOY ac nen aR 
006410 001370 BNE fo a 
nate blere? onesie MOV 870540 ,R5 - EXPECT "DONE" +e NENE®+°COF” se CSF"4"SEC 
i 1 9380 HOV a . sei ee A teWeL "= 
006432 O01 000020 MOV 16. RO 
DO64 3% 1? INTENA+17, JOMBCSR SET I 
eta sees 


SORT aaoe se santos 





Bas Gas ho H-< 4 ba fo feo fos be toe 2 b= fo Poe Boa f+ Mae Des fie ho hee fat Hw Pos ho Hw Ben 


SCNTIB: BI #340, PS 
07ers ets , @0MBCSR : START 
1 BIC PS : NTERRUPTS 
i378 aometsR “WAIT FOR DONE 
4 WILL HANG HERE 
IF DONE NEVER SETS 
000340 177776 BIS 8340, PS * INTERRUPT DID NOT OCCUR 
MOV admecsR, RY 
ERRORC STATUS ERROR 
861 SCOPE *CHECK FOR LOOP ON SAME DATA 
aes 5514 1 SCNTID 
864 006516 SCNTIC: POPeSP s INTERRUPT OCCURED, REPOSITION STACK 
7704 007230 Hoy SDMBCSR, RH "READ CONTROL A TUS e-rvep 
1 BEQ _—SCATID iecisiens 3 ie Se 
ERRORC NO, LINE STA 
SCOPEF CHECK FOR LOOP METH CURRENT DATA 
000240 007210 SCNTID: BIC 8SCNENA+DONE , 2DMBCSR ;CLEAR SCAN ENABLE AND DONE 
INC RS UPDATE, EXPEC TED RESU RESULT 
Seis aa 
SCOPE ;CHECK FOR ITERATIONS, LOOP 
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007166 


oo7i68 


007140 


136 


177776 


177776 


006764 


137: 
SCNTe: 


SCNT2A: 


SCNT2B: 


SCNT2C: 


SCNT2D: 


De tet pet fiat 


USD 8 6 
tad 


ae 


8 i eer 


ScANve 
t 


FO4 


S INTO ALL MULTIPLEXER FUNCTION FLIP-FLOPS 


MEMORY 
HAT AN INTERRUPT OCCURS FOR EACH LINE 


;REFERENCE DESIGNATION 
sWRITE 1S {wie ALL 
MULTIPLEXER 


; CLEAR 
MULTIPLEXER FUNCTION 
HENLE TELET YPE INTERRUPTS 


;CLEAR SCANNER MEMORY 
;WAIT FOR CLEAR CYCLE TO COMPLETE 


;SET UP er T 16 pies 
ere 


LEME DE a om 
be am aoe 


SCOHPARE 10 EXPE TO 


CHECK FOR LOOP ON CURRENT DATA 


AR aon AND DONE 
TE EXPE SULT 
fA IF ALL 


ibieeR POR ITERATIONS, LooP 


ee ee ee ee 


scooter cents 


. at Ua 
7th +e 


14 
007016 





GO4 
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;SINGLE LINE CABLE TEST 


sFOR USE WITH MODEM CABLE AND DC11 TEST CONNECTOR 








;NOTE: DM11-BB MULTIPLEXER pete SHOULD BE CONNECTED 


:T0 DISTRIBUTION PANEL WIA DMI 


T7100: 
012737 007020 002150 STRLIN: MOV #STRLNA, KRET 
Oye? 000340 177776 BIC #340, PS 
104 YPE 
rk STRLNA thet 
; pune! 

? i? 
016042 LI 
yeaa ; MCRLF 





; REFERENCE gy ION 


;SET UP FOR 


NE SELECTION 


; TYPE EINER LINE CABLE TEST” 
;GET LINE NUMBER 





HO4 
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1943 

1944 : VERIEY THAT LINE ENABLE FUNCTION FLIP-FLOP CAN 

13a *BE SET AND CLEARED FOR SELECTED LINE 

1947 0070% T101: sREFERENCE DESIGNATION 

1348 006712 wom MUXI1: CLR SKBCER LER CONTRO, STATUS REGISTER 
1950 rea 13701 ayes Re’ Ri a ee 

31 bartee i Sobnes 006672 MUXLLA HOV SCLRMUX, AOMBCSR 

1953 blFrte MOV Ri, JOMBCSR ;SELECT LINE TO BE TESTED 

gee bo707e 0001 O06ESE HOY t NA, @OMGLSR SET LINE ENABLE FUNCTION FLIP-FLOP 
1956 007104 OoSscoS MUX11B: CLR RS 

1957 007 108 01 006644 MOV SDMBLSR, RY sREAD LINE STATUS REGISTER 

1958 il il 006636 MOVB § @DMBCSR;R3 ;READ CONTROL STATUS REGISTER 

1959 007116 2703 177760 BIC #177760,R3 ;CLEAR UNWANTED BITS 

19%0 007122 0201 CMP R1,R3 IF LINE NUMBER=SELECTED LINE NUMBER 
1951 007124 1902 BNE MUKLIC “EXCEPT LINE ENABLE FUNCTION FLIP FLOP 
136 007126 Ol 000001 MOV SLINENA, RS te ox ort 

1964 007132 020504 MUXL1C: CMP RS,R4 *COMPARE EXPECTED AND RECEIVED 
1965 007134 001403 BEQ MUX 1D *RESULTS 

1968 007136 104001 ERRORL LINE STATUS ERROR 

1967 007140 104003 SCOPEF 

198 007142 007144 MUX1ID 

1969 007144 000400 o06602 MUX11D: BI #STEP, JOMBCSR sEXAMINE NEXT LINE 

iar) Sortes Bol BRE = AUXLIB 

i 155 CLR RS 

135 nats 10177 006570 MUXI1E: MOV Ri, 30MBCSR 

1374 00716 10103 : HOV Ri RS ‘SFr eCtok Uine oe TO SELECTED LINE 
es eo os 

1 o0ess2 MOV SOMBLSR, RY SREAD | INE STATUS REGISTER 

1358 ried Sheoee TST WAS LINE ENABLE FUNCTION FLIP FLOP 
ise1 BO7518 TO40DI ERRORL vetoed NO. LINE. STATUS ERROR 

1982 ete 1 Noe . MUXIIF: SCOPE neck FOR ITERATIONS, LOOP 









SOSSSSoses 
DONT £WW-oO 


hs 








reece ecerererer cet eT ge 


Seuss: eeu? 


14 
14 
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006412 


006424 


T10e: 
MUXle: 


MUX12A: 


MUX12C: 


MUX12D: 


MUX12E: 


I04 





;VERIFY THAT TERMINAL READY FUNCTION FLIP-FLOP CAN 
;BE SET AND CLEARED FOR SELECTED LINE 


;REFERENCE DESIGNATION 
CLEAR CONTROL STATUS REGISTER 
sENABLE INTERRUPTS 


NE TO BE TESTED 
NAL READY FUNCTION FLIP-FLOP 


TUS REGISTER 


INE STA 
GISTER 


L 

CONTROL STATUS 
;CLEAR UNWANTED BITS 

SIF LINE NUMBER=SELECTED LINE NUMBER, 
EXCEPT TERMINAL READY FUNCTION FLIP’ FLO 


310 
3C EXPECTED AND RECEIVED 


3RESULTS 
;LINE STATUS ERROR 
;EXAMINE NEXT LINE 


;SET LINE COUNTER TO SELECTED LINE 
LER 5 ee READY FLIP FLOP 


it LIN STATUS REGIS 

SHAS TERMINAL READY FUNCTION FLIP FLOP 
'NO LINE STATUS 

tOReckK F ITERATIONS, LOOP 
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Ss 


g Seseean 


b= b= 


8 
8 


ee 


uJ 


By 


= 
= 
+ 
+ 


a8 


= Cc 


T 


oO 
te 
oO 


3 


DUAL LEGGE eee EEE eect aa sence 
rE 








JO4 


; VERIFY THAT REQUEST TO SEND FUNCTION FLIP-FLOP CAN 
;BE SET AND CLEARED FOR SELECTED LINE 


T103: sREFERENCE DESIGNATION 
MUX13: CLR QOMBCSR * CLEAR CONTRO TATUS REGISTER 
BIC 40, Ps ‘ENABLE INT ts | 
MOV L 
MUX13A: Nov sCLRALUX, BOMBCSR 
MOV Ri CSR sSELECT LINE TO BE TESTED 
MOV #RS, JOMBLSR :SET REQUEST TO SEND FUNCTION FLIP-FLOP 
CLR JDMBCSR 
MUX13B8: CLR RS 
MOV QDMBLSR, R4 sREAD LINE STATUS REGISTER 
MOVB  aDMBCSR,R3 ; READ CONTROL STATUS REGISTER 
BIC $177760,R3 ‘CLEAR UNWANTED BIT 
CMP 1,R3 IF LINE NUMBER=SELECTED LINE NUMBER 
BNE Kise ‘EXCEPT REQUEST TO SEND FUNCTION FLIP FL 
: ;TO BE SET 
MUX13C: CMP RS,R4Y >COMPARE EXPECTED AND RECEIVED 
BEQ MUK13D RESULTS 
ERRORL *LINE STATUS ERROR 
COPE 
MUX 
MUX13D: BIS ASTEP, BDMBCSR sEXAMINE NEXT LINE 
pe 
mae: Fy res 1g COUT To SELECTED Le 
CLR SR HeLEaR REQUEST 0 SEND FLI fee 
“4 
MOV SDMBLSR, R4 ine OL Ine STATUS REGISTER 
TST RY sWAS REQUEST TO SEND FUNCTION FLIP FLOP 
BEQ MUX13F :C 
ERRORL NO, LINE STATUS 


*CHECK FOR ITERATIONS, LOOP 
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2061 sVERIFY THAT SECONDARY TRANSMIT FUNCTION FLIP-FLOP CAN 
e0be *BE SET AND CLEARED FOR SELECTED LINE 

4 T104: s REF REN E DESIGNATION 
Spee SOpeen 005077 006200 MUXI4: CLR QOMBCSR CLEAR TROL § STATUS REGISTER 
ss rere it; bien 17777 ny teal sans 
e0b8 007566 Mae 006160 MUX1YA: MOV SCLRMUX, ADMBCSR 
2070 SO oead 16% 150 MOV Ri .aOMBCSR ;SELECT LINE TO BE TESTED 
2071 007604 012777 O10 006144 HOY aSECTX, SOMELSR :SET SECONDARY TRANSMIT FUNCTION FLIP-FL 
So78 Bosete | bOSbbS muxi4B: CCR Re 
2074 007620 017704 006132 MOV JOMBLSR, RY sREAD LINE STATUS REGISTER 
2075 og7be4 117703 006124 MOVB § @DMBCSR,R3 READ CONTROL STATUS REGISTER 
re fee Bains | me aires TE Cin MmeER EL feren ne wun 
Be Seas rated BNE MUX14C EXCEPT SECONDARY TRANSAT Pd FUNCTION FLIP 
2079 007640 012705 900010 MOV #SECTX,RS 70 or ext 
Brat 007644 O20S04 MUXL4C: CMP RS,R4 >COMPARE EXPECTED AND RECEIVED 
2082 007646 001403 BEQ MUXL4D *RE 
a o07bs i ERRORL LINE STATUS ERROR 

907654 MUX14D 

2085 007656 nage 000400 006070 MUXI4D: BIS #STEP, IDMBCSR sEXAMINE NEXT LINE 
Se tues 8 Be aw 
2089 907670 C 
oat Oavere pot ane ted HOY Rt we ;SET LINE COUNTER TO CTED LINE 
soa pasos 006052 CLR SDHEL SR CLEAR R SECONDARY TRANSHIT FLIP FLOP 
coos eats onisre — BNE spe AY ame 
2095 007712 017704 006040 MOV SOMBLSR, RY *READ LINE STATUS REGISTER 
20% 007716 T I RH sl iH CONDARY TRANSMIT FUNCTION FLIP FL 
2098 007722 104001 ERRORL NO, LINE STATUS ERROR 
2099 007724 02 MUXI4F: SCOPE ;CHECK FOR ITERATIONS, LOOP 












wy 
8 2 





Ht: 

1 

at 00 

HB Bre tes tees 177 
sm Hire tine Bs 

2110 007754 012777 000003 005774 
SL Hires Base Sort 
ee 

Siie 10000 Ot 177760 

2116 tee arte 

ell? 010006 O01 

sii8 010010 Ole70S 900143 

set GIRLS gs 

elee 010020 104001 

5154 b190e4 b10028 

5150 b100se Beerre ooo4e0 005720 
se tae Se 

ac 

ele9 O10044 010103 

2130 01004 013177 005702 

5134 tees eee 000002 005676 
$1 HIRES SR cose 

se bias ia 

se Hits i 

2138 010100 10400e 
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T10S: 
MUX1S: 


MUX1SA: 


MUX1SB: 


MUX1SC: 


MUX15SD: 


MUX1SE: 


MUX1SF: 


sVERIEY THAT C cr SEY FOR SELECT 


LOY 


AND TERMINAL 
CLR JOMBCSR 
BIC #340, PS 
MOV LINE, RI 
MOV #16..Re 
MOV R1, JOMBCSR 
MOV #L INENA+TRMRDY , JDMBLSR 
CLR JDMBCSR 
MOV SDMBLSR, RY 
MOVB  @DMBCSR’R3 
BIC #177760,R3 
CMP R1,R3 
BNE 15¢ 
MOV #LINENA+TRMRDY+C0+CS, RS 
CMP R4,R 
BEQ RUXeD 
ERR 
SCOPEF 
MUX1SD 
BIS ASTEP, JOMBCSR 
BNE 
MOV THe, RS 
HOV RF HBCSR 
BIC th JDMBLSR 
he, 
MOV SDMBLSR, RY 
CMP RS,R4 
BEQ MUXISF 
ERR 
SCOPE 









ARRIER_ARE SET IF “LINE ENABLE” 
ED LINE. 


; REFERENCE DESIGNATION 
EAR CONTROL BeetSTER 
ENA BLE INTERRUPTS 


316 LINES 

SELECT A LINE 

sSET LINE ENABLE +TRMRDY 
;CLEAR CONTROL REGISTER 
;CLEAR porer ED RESULT 
SREAD L 

; READ 

;CLEAR UNWANTED BITS 

sIF RECEIVED LINE=SELECTED LINE 
EXPECT LINE ENABLE AND 


;CLEAR TO SEND AND CARRIER ARE SET 
CTED AND 


;COMPARE EXPE 
RECEIVED RESULTS 
LINE STATUS ERROR 


;UPDATE LINE COUNTER 
A oe tie iS 
NE ENABLE 


TTO 
*READ LINE STATUS REGISTER 
SONLY LINE E SHOULD BE 
SET ON THI L 

*LINE STATUS ERROR 

*CHECK FOR ITERATIONS, LOOP 
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;VERIFY THAT RING IS S 
‘AND REQUEST TO SEND A 


Oe 
O000 OOOCOOOOOOOOO0OOOoO 
e280 ERSESESRSLSTRAR 


turururururururururuorurururu 
Fin Flo Ow Vue roe 


OOVVQOVOOCOOOV|OO 000000 BOKDKOOOCOO0OO0O00oO 


RNR 


£MvMo 


RAS SaSOAS 


QDMBCSR 
NINE! »PS 
LINE el 


#16 
Ri SORE 
aL HRena, JDMBLSR 


#LINENA+RS+RING, RS 


R4,RS 
MUXL6D 


#STEP, JDMBCSR 
Re 


MUX16B 
SLINENA, RS 
R1.aDMBCSR 
#RS, JDMBLSR 
40. 

SDNBLSR, RY 
RS,R4 

MUXLOF 





ET IF 
RE SET 






“LINE ENABLE” 
OR SELECTED LINE. 


;REFERENCE DESIGNATION 
CLEAR CONTROL REGISTER 
ENABLE INTERRUPTS 


316 LINES 

arr A LINE 

T LINE ENABLE + RS 

AR CONTROL REGISTER 

Het ERR Pereihe RESULT 
LINE STATUS 


NE 
‘CLEAR UNWANTED BITS 
sIF RECEIVED LINE=SELECTED LINE 
EXPECT LINE ENABLE AND 


;RING IS SET 


AND 
sCOnPERE oF RESULTS 
LINE STATUS ERROR 


CONTIN LINE Fig KS 
nf. DORE FOR pris LINE 


; READ ait STATUS REGISTER 
Lie etre SHOULD BE 


sro on 


ROR 
: CHECK STOR TTERATIONS, LOOP 








DZOMD-B MACY!1 
02 SRC 


D 
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: 
e 
; 
: 
; 
: 
; 
; 
2 
: 


pease 
ooo 


3 
a ood 
o 


SESRRLSSLSSSSEREBST SIS 


pe bh b= & 2b > 2 =F b= & 2 BH 2 = Po he 


8 


8 


RaTSPeMORAS? SpoRNS 


Sp Senses 


OOOO OOO OOOOOOO00000 BOOCOOOCOO0O00000 


Bs 0-2 Boe b= ae ban fe 8 be frame fe pame f ae fice bas pene Pas ba Pe Ho f= be fas Gas Pee Pao F— Hs 
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; VERIFY THAT SECONDARY RECEIVE IS SET IF “LINE ENABLE” 
AND SECONDARY FRANGMET AR fey Po SELECTED LINE. 


T107: sREFERENCE DESIGNATION 
nse MUX17: CLR JDMBCSR ‘CLEAR CONTROL REGISTER 
0340 177776 BIC #340, PS ‘ENABLE INTERRUPTS 
MOV LINE, RI 
000020 MUX17A: MOV #16. 16 LINES 
SRG oos444 NOV Bi thenaesecs JDMBLSR teeter Ine E 
Bpe aie St CLR CSR : te ca Aim ea 
y am ae eepel RY ie L 
peda MOVB MBCSR,R3 a He ia 
177760 BIC #177760, R3 
CMP R1,R fia RECEIVED VED "TINE=SELECTED LINE 
BNE MUK17C XPE 
900031 MOV #L INENA+SECTX+SECRX, RS 
sSECONDARY RECEIVE IS SET 
MUX17C: CMP R4,RS *COMPARE EXPECTED AND 
BEQ MUX17D *RECEIVED RESULTS 
ERRORL *LINE STATUS ERROR 
mit 
000400 005370 MUX17D: BIS #STEP, JDMBCSR ;UPDATE LINE COUNTER 
DEC R2 >CONTINUE IF ALL CHECKS 
BNE MUX17B “ARE NOT DONE FOR THIS LINE 
000001 MOV #LINENA, RS *EXPECT LINE ENABLE 
MUX17E: MOV R1I,R3 :ON SELECTED LINE 
905358 MOV R1‘ aDMBCSR >SELECT LINE 
000016 005346 BIC #SECTX, JDMBLSR *CLEAR SECONDARY TRANSMIT 
000000 INCE #0, ; DELAY FOR CABLE 
005334 MOV JOMBLSR, R4 FREAD LINE STATUS REGISTER 
CMP RS,R4 ONLY LINE ENABLE SHOULD BE 
BEQ MUX17F *SET ON THIS LINE 
ERRORL *LINE STATUS 


ROR 
MUX17F: SCOPE CHECK FOR ITERATIONS, LCOP 





— -.<—-- —- .. --—-—- ~~ _ 
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;ONIL-B8 9 oN N LINE TEST USING 103A TYPE MODEMS 
: ANGHER TION TO BE OPE OPERATED IN AUTO-ANSWER MODE 
: THIS Teer ve VERIF ies CONNECT AND DISCONNECT SEQUENCES 
:USING THE DM11-B8 10 HE ONT ROL 1038 TYPE MODEMS 
‘NOTE: IF THE DMI1-AA a Is NOT CONNECTED TO THE 
‘DISTRIBUTION PANEL, AN M974 DM11 MAINTENANCE JUMPER 
: SHOULD se INSTALLED IN SLOT Bl NR B3 OF THE DISTRIBUTION 
:PANNEL TO PREVENT A POSSIBLE LONG SPACE 
:DISCONNECT FROM HANGING UP THE MODEM 
sREFERENCE DESIGNATION 
: RESET ‘INITIALIZE INTERFACE 
MOV #340,PS :DISABLE ALL IN TS 
TYPE “TYPE “103A MODEM CONNECT- 
MT1O3T *DISCONNECT TEST™ 
sSHREG, SHR 
CNTLUU 
MOV 8T103A,FATRET SET UP FOR FATAL ERROR 
MOV #571028, KRET :SE FOR LINE CHANGE 
GETLNS i ORIGINATE AND 
AND ANSWER LINE NUMBERS 
SETUP >SET UP TO RECEIVE INTERRUPTS 
*WAIT FOR RING 
T1038 :60 HERE F RING OK 
TIO3Al :G0 F NO RING 
: ERROR NO RING WITHIN 5 MINUTES 
6R ST1038 ;SELECT NEW LINES AND REDIAL 
sCHECK FOR RING INTERRUPT ON TED INE 
: IF AN INCORRECT TRANSITION 0c HE 
WILL TYPE AN ERROR ME AND THE OPERATOR 
WILL BE REQUESTED TO RESELECT LINES AND REDIAL 
CKRING sCHECK FOR RING INTERRUPT 
ONLY ON ANSWER LINE 
AND NO TRANSITIONS ON 
ORIGINATE LINE 
T103¢ 560 HERE FIRANSITIONS 
710381 *GO gE JNCORRECT 
: TRANSITION LINE 
710382 GO HERE IF INCORRECT TRANSITION 
30N ORIGINATE LINE 
: ERRORT : TRANSITION ON ANSWER LINE 
RT PC 3 CONT CKING 
: ERRORT : ITION ON ORIGINATE LINE 
BR S71038 *RESELECT LINES REDIAL 
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COS 


;SET_ TERMI ADY ON SELECTED ANSWER LINE 
FOR OR TRANS TIONS TO OCCUR ON SLeCTED LINES 


;WAIT 
MOV LINANS, JOMBCSR Bie L gee git TO 
BIS STRMROY, dOMBLSR ;SET TERMINAL READY ON 


cxINTT ;SELECTED ANSWER LINE 
WAITR ;WAIT FOR TRANSITIONS TO OCCUR 


;CHECK_FOR CORRECT STATUS AND TRANSITIONS ON 
SELECTED ORIGINATE AND ANSWER LINES 


CKTRAN CHECK TRANSITIONS AND 
STATUS ON CTED 
“ANSWER AND ORIGINATE LINES 
CO+#CS+L INENA+TRMRDY EXPECT CARRIER, CLEAR TO SEND, 
LINE ENABLE TERMINAL 
?READY STATUS BITS SET ON 
ANSWER LINE 
CO+CS+L INENA+TRMRDY EXPECT CARRIER, CLEAR TO SEND, 
*LI AND TERMINAL 
*READY ST! BITS ON 
sORIGINA INE 
RINGF +XCO+XCS s EXPE IER, CLEAR TO SEND 
? AND POSSIBLE RING TRANSITIONS 
3 ON LINE 
xCO+#XCS EXPEC IER AND CLEAR 
TO SEND TRANSITIONS ON 
‘ORIGINATE LINE 
710301 GO HERE ON ANSWER LINE STQTUS ERROR 
710302 :GO HERE ON ORIGINATE LINE STATUS ERROR 
T10303 *GO HERE ON ANSMER LINE TRANSITION ERROR 
Tl GO HERE ON ORIGINATE LINE TRANSITION ER 
T GO TO NEXT TE IF NO 
: ANSWER LINE STATUS ERROR 
RTS PC 3 CONTINUE CKING 
: SORIGINATE LINE STATUS ERROR 
RTS PC SCONTINUE CHECKING 
ERRORT ANSWER LINE TRANSITION ERROR 
TS PC sCONTT CKING 
ERRORT ‘ORIGINATE LINE TRANSITION ERROR 
RTS PC :CONTINUE CHECKING 








ne mn a on eee 
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2313 
2314 ;SET UP TO ra a cT Sea 
g3! THE PR oe CPERETOR TO SET SWOl=1 
1 TO INI TE Hit Lote connect 
e317 TH PERATOR MAY MANUALLY SWITCH T para. SETS FROM 
18 reek MODE AS ANY IMES AS 
319 BEFORE repro be TIN IS 
TIONS DET TED DURING THIS TIME WILL BE 
1 REPORTED: 
5356 010614 104004 T1O3E: TYPE sTYPE “SET SWO1=1 TO 
eae 010616 biesi3 MDISC > TEST TSCONNECT™ 
010620 01273 177776 MOV #340, PS *L INTERRUPTS 
23206 010626 0120777 012310 005114 MOV STRNTYP, DOMBVEC ;SET UP TO DETECT TRANSITIONS 
327 : T SEQUENCE STARTS 
535 010634 012737 010654 016062 MOV #T103ES, RNGRET iSET pun URN FOR 
5333 010648 012777 000140 005104 MOV SSCNENA+INTENA,JOMECSR ;SET SCAN ENABLE AND INTERRUPT ENABLE 
2331 010650 005037 177776 CLR PS ALLOW INTERRUPTS 
010654 605 10¢ T103ES: CLR aTKDBR 
Bibees co wk een 
2335 010666 005777 TST STKDER 
£336 01067e D127 3? 177776 MOV PS sSTART DISCONNECT SEQUENCE 
i CLR aomecsR *CLEAR CONROL REGISTER 
2338 O01 013777 O16044 ooso42 MOV LINORG, @OMBCSR *SET LINE COUNTER TO SELECTED ORIGINATE 
e333 01071 042777 000002 005036 BIC STRMRDY, JOMBLSR *SET TERMINAL READY ON SELECTED LINE 
10720 104026 KINTT 
2341 910722 104022 ;WAIT FOR TRANSITIONS TO OCCUR 
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Ee 
5 
zB 
BS 
= 
e 
et 
ss 
: 
BS 
a 
2372 
Ee 
a 
ee 
2379 
a 









ET Tee ieS AND 


T LINE ENABLE STATUS BIT 


ARGUE LINE TRAftat 110M ERROR 
ae ER 


T103E1: ERRORS 


T1O3E2: 
T1O3E3: 


T103E4: ERROR 


Te01: 
TIOSEN: 





NATE LINE TRANSITION ERROR 
CHECKING 
AerERENE ge Sh be 


SCLERR TEST NUMBER FOR LOOPING 


REC FR a NUMBERS AND 
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5388 
538s 


5364 
ll 7300: 
5335 B1198— sonons oP a: 
2393 011010 Ole737 000340 177776 
See lines dieser 
a hie 022737 000176 015770 
11030 1 
1103¢ i 
1108 01 011052 012266 1S: 
e400 DligNe 012737 011080 002150 
Si 11050 104017 ST2028: 
011052 104020 T202A: 
—e * 
011054 011064 
11056 011060 
11060 104012 T202A1: 
Be 011062 000772 
10 
el! 
Bie 
el 011064 104021 T2028: 
18 
a 
19 011066 011104 
2421 011070 011074 
BE: 011072 011100 
Sise rom 104014 T202B1: 
cuss tetas erat T202B2 
28 sett bores ; 





. BB ON L C 
ANSWER STATION TO BE OPERAT IN A AUTO-ANSWER MODE 
*THIS TEST VERIFIES THE CONNECT PND DISCONNECT SEQUENCES 
USING THE DM11-BB TO CONTROL 202C T 
sALSO TESTED ARE LINE TURN-AROUND AND 
SECONDARY TRANSMIT-SECONDARY RECEIVE 
sREF DESIGNATION 

RESET neal sINI IALIZE INTERFACE 
TYPE . MODEH CON CONNECT- 
MTe0eT :DISCONNECT TEST” 
CMP #SHREG, SHR 
CNTLUU 
MOV #T202A, FATRET sSET UP FOR FATAL ERROR 
MOV #ST2028, KRET iSET FOR LI CHANGE 
GETLNS +s ORIGINA 
SETUP ice ; oe bb Re IVE INTERRUPTS 
a ae 
150581 60 HERE ff Ro ING 
ERROR =NO RING WITHIN 5 MINUTES 
BR ST2028 ;SELECT NEW LINES AND REDIAL 
;CHECK FOR RING INTERRUPT ON SELECTED ANSWER LINE 
‘ttt AN INCORRECT TRANSITION TION OGCURS PROGRAM 

ite Be REGUES ED ED TO RESEL RESELECT LI a ReSTAL 


cxRING EO FOR RING prewar 


PA NO TRANSITIONS ON 


Te02c +00 Mere Te PE SITIONS 

T20281 ;60 hh NCORRECT 

: : ik N BNSHER LINE 

ERRORT Thats] th ua A 

RTS PC CONT 

ERRORT ORIGINA Ge teansrT ION ERROR 
$T2028 *RESELECT LINE AND REDIAL 
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po4e42 


DO4636 
Ooese 


Tedec: 
T20eD: 


T202D1: 
Te02De: 
T20203: 
T202D4: 





GOS 





Y ON SELECTED ANSWER LI 
ND ON SELECTED ORIGINAT 
ITIONS TO OCCUR ON SELECTED LINES 


; SET TERMINAL, READ 
Set QUEST TO SE 
WAIT FOR TRANS 

L 


NE 
E LINE 
eet ie aga i TO ANSWER LIN 


> BIS ATRNRDY,, ODMELSR T LINE COUNTER 10 ORIGINATE 
£3 ha TO SEND ON TE te LINE 


Har ee ad 
;WAIT FOR TRANSITIONS TO OCCUR 


; CHECK FOR CORRECT STATUS AND TRANSITIONS ON 
SELECTED ORIGINATE AND ANSWER LINES 


nov INANS , JOMBCSR 


CKTRAN sCHECK TRANSITIONS TIONS AND STATUS 
ON SELECTED ANSWER AND 
CO+L INENA+TRMRDY peer CeARIER, LI LINE 7fiReLe 
BITS Ww Ret PINee> 
RS+C0+CS+L INENA+TRMRDY sEXPECT REQUEST TO SEND. CLEAR 
:T0 CORRIER, LI 
ort oN ORyGTNATE 11 ‘ peoduecs: 
RINGF+XCO : T ER DBSSIBLE 
| SRING. TRANSITIONS. ON 
XCO+XCS i EXPE T TER AND CLEAR 
T20201 sORI ) a8: NE STATUS ERROR 
T20e0e >60 HERE ON ORT CIHR re INE STATUS ERROR 
T20203 G0 ON Lie STATUS 
T0204 >GO HERE ON ORIGINATE LINE TRANSITION ER 
T *GO TO NEXT TEST IF NO ERRORS 
t BNGHER INE SATAUS ERROR 
Reors '° SOM TINATE LINE STATUS ERROR ” 
TS PC pan CKING 
ERRORT * NE TRANSITION ERROR 
ERRORT ican CORT TNE CHECKING TRANSITION ERROR 
RTS PC CONTINUE CHECK 


<n 


HOS 
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;SET_SEC Y TRANSMIT ON ANSWER LI 
;WAIT FOR ITIONS TO OCCUR ON SELECTED LINES 


Bliss Osev77 Goode OoNes6 renee BTS BBECTE; SOMBLER iSET SECGuGaRY RECEIVE GN ANSKER LINE 
11220 104026 CKINTT 
blise2 lowes WAITRN ;WAIT FOR TRANSITIONS TO OCCUR 


;CHECK FOR CORRECT STATUS AND TRANSITIONS ON 
;SELECTED ORIGINATE AND ANSWER LINES 


CKTRAN ;CHECK TRANSITIONS a STATUS 


PRSEREB ISS 


$s 


SECTX+CO+L INENA+TRMRDY+SECRX 


¥ 
BS 


SECRX+RS+C0+CS+L INENA+TRMRDY 


a 


ea 
Be 
Be 

% 
Be 
Be 
ED 
Es 
2S0S 
ss 
a 
Bu 
2513 


1 
11 

11S 
il 

1130 
1} 

1158p 
ieee 
11264 
11266 


: 
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Bm BHF Ps hee 


ROW ROS 


PATA ATMA SAI ah 
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104023 


Se Gat fe Ft Pee 
b= bb ES be 


— 








TOS 





;DROP REQUEST TO SEND ON pong Nag 


:Daoe SEcOlGeny Teen Us assees 


an: re :SET_LINE COUNTER. TO ORIGINATE LINE 
(wees Eales oe 


;WAIT FOR TRANSITIONS TO OCCUR 


;CHECK FOR CORRECT STATUS AND TRANSITIONS ON 
SELECTED ORIGINATE AND ANSWER LINES 


CKTRAN ates CK TRaNST PE AND STATUS — 


ORIGINATE LINES 

LINENA+TRMRDY sEXPECT L AND 
a ERMINAL TUS BITS 
T ON BNSHER LI 

LINENA+TRMRDY er LINE 

Hs INA “STATUS BITS 

T ON ORIGINATE LINE 

XCO+XSCRX EXPECT CARRIER AND SECONDARY 

: ITIONS ON 
XC0+XCS+XSCRX T ER TO SEND 

Rect IVE 

; TRANSITIONS ON ORIGINA LINE 
Te0eFe *G0 HERE NE ERROR 
T202F3 °G0 ORIGINA tiie STA ERRORO 
Te02F4 $69 HERE ON BA ene TRANSITION ERROR 
T20oFS 60 Ne LINE TRANSITION ER 
T2066. ;60_T next ae ERRORS 
RTS PC iat he 
ERRORS LINE TN TUS ERROR 
nS T be L at te TION ERROR 
BREOR PC iu eu eg 
ERRORT ORIGINATE LINE TRANSITION ERROR 

PC :CONTINUE CHECKING 








2557 
2s58 
4 
2562 
2563 
2564 
2565 
2566 
2567 
2568 
2569 
2570 
2$71 
2572 
2$73 
2574 
E79 
2578 
52a 
2$81 
P65 
2584 
2585 
2586 
2$87 
a 
524] 
5245 
ess 
2535 
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JOS 





I1"FOR TRANSITIONS. ON SELECTED LINES 


T2026: MOV LINANS, JOMBCSR sSET LINE COUNTER TO ANSWER LINE 
BIS #RS, DDMBLSR SET REQUEST TO SEND 
GAT TRN ;WAIT FOR TRANSITIONS TO OCCUR 
CHECK FOR CORRECT STATUS AND TRANSITIONS ON 
SELECTED ORIGINATE AND ANSWER LINES 
CKTRAN 5 CHECK ee ZED ae AND STATUS 
OucINaTe LINE 
RS+CO+CS+L INENA+TRMRDY ne CRRBLE TERMINAL 
sREADY, RE TO SEND, CLEAR 
co. nen Bias He Batt, GERM 
I iP arate 
xoDHnts sPIPECT Commer 
t ANSER LI 
XCO ‘EXPECT IER TRANSITION 
120261 +O PERE ON ARGKER LINE STATUS ERROR 
Te0eGe *GO HERE ON ORIGINATE LINE STATUS ERROR 
T20263 260 HERE ON ANSWER LINE TRANSITION ERROR 
Te0264 260 ON ORIGINATE LINE TRANSITION ER 
Te0eH GO TO NEXT IF NO ERRORS 
T202G1: ERRORS : LI TATUS ERROR 
Te02G2 : " soon Nae TATUS ERROR 
‘ BRCORS PC ieee ht 
T20263: ERRORT i TRANSITION ERROR 
Eom © Hi 
T202G4: E RANSITION ERROR 
R sgauetne TESTING 
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ASAAAC ASE LC LS AG Maa AAA ASA 


ube 
470 
u7e 


pit 
ll 
O11 
011 


011474 


011476 


011500 


be377? 000010 
104026 


104022 


4272 
ebb 


Te0eH: 


KOS 





;SET_ SECONDARY TRANSMIT ON ORIGINATE LINE 
WAIT FOR TRANSITIONS TO OCCUR ON SELECTED LINES 


SET beCNGaRY TRANSMIT FINE 


;WAIT FOR TRANSITIONS TO OCCUR 
;CHECK_FOR CORRECT STATUS AND TRANSITIONS ON 


MOV LINERS a rae 
BIS CTX; oOM 
CKINTT 

WAITRN 


SELECTED ORIGINATE AND ANSWER L 
CKTRAN 


RS+CS+CO+L INENA+TRMRDY+SECRX 


SECTX+CO+L INENA+TRMRDY+SECRX 


INES 


SON SELECTED. AN ee STATUS 


ORIGINATE LINES 


thea 


Rediest 10-0, ER 


i sraTus BITS SET 
pel 


NATE LI 
; SECONDARY 
pers ITION ON LINE 
CT SECONDARY RECEIVE 


STA 
HERE ON ORIGINATE LINE TRANSITION ER 
ANSWER LIN STATUS ERROR 
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011540 016046 
ge ilies ie ae ay 
cee filer {oie 
eel 
2653 


2660 011600 000003 

e661 

e662 

e663 011602 000007 

2664 

2665 

2666 011604 000005 

2667 

2668 

26639 011606 011620 

2670 011610 011624 

2671 Oll6le Bt 1630 

e672 011614 011634 

ax, thee ttt 
7s Olieee doue0? 

go7e Ritts 104015 
7 11888 Tosoi4 

2679 011632 000207 

2680 011634 104014 

e681 011636 000207 


Tedel: 


T202Te2: 
T20213: 
T2024: 
T202I5: 


LOS 


;DROP REQUEST TO SEND ON ANSWER LINE 
;WAIT FOR TRANSITIONS TO OCCUR oh SELECTED LINES 


MOV LINANS ee ;SET LINE COUNTER TO ANSWER LINE 


by Pe ate MBCER are INE “COUNTER 75'3 0 ORIGINATE LINE 
BI . LEAR SECONDARY TRANSMIT 


fete FRO TRANSITIONS TO OCCUR 


CHECK FOR CORRECT STATUS AND TRANSITIONS ON 
SELECTED ORIGINATE AND ANSWER LINES 
CKTRAN CHECK TRANSITION S AND STATUS 
ON SELECTED ANSWE AND 
“ORIGINATE LINES 
LINENA+TRMRDY jEXPECT L LINE ENABLE AND 
*TERMINAL READY STATUS BITS SET 
30N ANSWER LINE 
LINENA+TRMRDY EXPECT LINE ENABLE AND 
: TERMINAL Y STATUS BITS 
*SET ON ORIGINATE LINE 
XCO+XCS+XSCRX * EXPECT IER, CLEAR TO SEND 
AND SECONDARY RECEIVE TRANSITIONS 
ON ANSWER LINE 
XCO+XSCRX EXPECT CARRIER AND SECONDARY 
*RECEIVE TRANSITIONS ON 
ORIGINATE LI 
Te0212 GO HERE ON ANSWER LINE STATUS 
T20213 GO HERE ON ORIGINATE LINE STATUS ERROR 
T202eT4 °GO HERE ON ANSWER LINE TRANSITIN 
Te0e1S GO HERE ON ORIGINATE LINE TRANSITION ER 
T20eJ GO TO NEXT TEST IF NO ERRORS 
RRORS ANSWER LINE Sratus ERROR 
TS PC CONTI I 
ERRORS ‘Sortie LINE STATUS ERROR 
RTS PC ; I 
Ergo PC CONT CHECKI — : 
ERRORT TN i TRANSITION ERROR 
RTS PC + CONTINUE CHECKING 


DZDNOB. 
2682 
2683 
2684 
2685 
2686 
gt 
88 
2689 
oe 
e632 011640 104004 
33 pi 42 Eee 
94 11644 Ole 000340 177776 
2695 011652 Qle777 O12310 004070 
sp 011660 012737 011700 016062 
Ae 011666 012777 000140 004060 
2700 011674 005037 1 
2701 011700 005077 O040S6 
e702 011704 105777 004050 
2703 011710 100375 
2704 011712 004044 
2705 
2706 
708 11716 0340 1 
Sm Alle Rie Bi 17776 
2710 911730 013777 O16044 OO4016 
2711 011736 042777 O00002 O040le 
27l2 011744 104 
2713 011746 104026 
2714 011750 104022 


ewe 'PF}(}}{«“*“*““"""}"“"""!" "= ______["a=_[[[[BDBnananDn-~>~E-———— ————————————————————————————__—_—_—_—_— 
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T202J: 


TedeJS: 
1$: 


;SET UP TO TEST DISCONNECT SEQUENCE 
STHE PROGRAM WILL REQUEST THE fed TO SET SWO1=1 


TO INITIATE THE fe 4c SEQU 
: THE OPERATOR MAY Ye 
;DATA TO TALK MODE A 
BEFORE THE SWITCH SPETIN 


Y SuITCH THE DATA SETS FROM 
Wy a ee AS DESIRED 


IS M 
SANY TRANSITIONS OF TECTED DURING THIS TIME WILL BE 


REPORTED BY TYPEOUT 


#340,P 
MOV STRNTYE, SDMBVEC 
MOV #T202JS; RNGRET 


MOV #SCNENA+INTENA, JOMBCSR 


C PS 
CLR aTKDBR 
are aTKCSR 


PL 1 
TST JTKDBR 

;DISCONNECT SEQUENCE REQUESTED 
MOV #340,P 

CLR aD 

MOV LINORG, JDMBCSR 

BIC STRMRDY, JOMBLSR 

WAITS 

CKINTT 

WAI TRN 


;1YPE “SET SWOl=1 TO 


ie OUT INTERRUPT 


T UP TO DETECT TRANSITIONS 
iBT UP OUMMY RETURN FOR RING 
;FROM RING INTERRUPT 
sENABLE LINE SCANNER 
: START 
ENABLE INTERRUPTS 


Ee oe QUT INTERRUPTS 


:SET LIne COUNTER TO SELECTED ORIGINATE 
$e TERMINAL READY ON SELECTED LINE 


;WAIT FOR TRANSITIONS TO OCCUR 


ee ee ee 





NOS 
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715 

716 sCHECK FOR CORRECT STATUS AND TRANSITIONS ON SELECTED 

gi? ORIGINATE AND ANSWER LINES 
2719 011752 104023 CKTRAN sCHECK TRANSITIONS AND STATUS 
551 10 Rae eee 
27e2 011754 000003 LINENA+TRMRDY jEXPECT LINE ENABLE AND 

g 3 il TERMINAL READY STATUS BITS 
2725 011756 000001 LINENA sENPECT LINE oRNRBLE TATUS 
ere? 011760 oo0000 0 sEXPEC NO TRANSITIONS ON 
e723 11762 000000 —ERREEL RD Famssrraons on 

31 011764 011776 T202J1 : GO HERE IF ANSWER LINE STATUS ERROR 
533 011766 panes Te02I2 G0 HERE IF ORIGINATE LINE STATUS ERROR 
soa DLio7e OLSOLe 1504 $60 HERE 1 AIA LINE TOMI TION ERROR 
2735 011774 012016 T202IN 560 TO geno OF TEST IF 
3736 11776 104015 T202J1: ERRORS - bait RL NE STATUS ERRORO 
oa ee Moh T20I2: FEES Hontir geseanes 
a 012006 104014 T202J3: ERRORT os aN s ANSHE WER LINE TR TRANSITION ERROR 
e74e Ole0l2 104014 T2024: ERRORT _ | ORIGINATE CaN TARANSITION ERROR 
eras 912014 RTS PC :CONTINUE CHECKING 
ers 912016 iou004 —- T202IN: TYPE sTYPE “202C TEST COMPLETE” 
2747 Oledee 104026 | CKINTT 
erie 012024 000137 o11050 INP ST2028 GET NEW LINE NUMBERS 

74 RESTART TES 


SSS SSS SSS 












DIDMO-B MACYLI e7( 732) 
02 src 


012030 017704 003720 


1 177760 
io : 016044 
O1 016046 

O01 144 
1 1 003672 
003670 


912072 100000 
ath 001 
lel 000019 016052 


12106 040000 

lelle 001 

12114 000094 0160Se 
lelee G20000 


PePPeRerC SEL SL SL ANSE RRARREL GREE ASRE TERETE RER EE: 
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DETECT AND RECORD TRANSITIONS ON SELECTED 
‘ORIGINATE AND ANSWER LINES 
: TRANSITION DATA : STORED IN LOCATIONS AN RNSELG AND ORGELG 
FOR ANSWER AND ORIGINATE ul NES 
*FORMAT OF DATA IS (FOR BOTH LINES) 
:BI SE Y RECEIVE CAUSED INTERRUPT 
:87 EreRR ots cee CAUSED INTERRUPT 
:BI CARRIER CAUSED INTERRUPT 
:BI RING CAUSED INT T 
TRANS: MOV DOMBCSR, RY ;GET LINE NUMBER AND 
INTERRUPT FLAGS 
MOV RY 
BIC 8 $360 RS T LIN NUMBER 
CMP LINORG, RS 510 Of eels Inate bine INTERRUPT 
BEQ ORGTR 
CMP LINANS, RS :Bip p’BRSWER'L LINE INTERRUPT 
BEQ ANSTR YES, SERVICE 
MOV R5,a0 SR 
MOV Pt, »R3 
ERRORN ; INTERRUPT ON INCORRECT LINE 
BR FATEX 
RECORD TRANSITIONS FOR ORIGINATE LINE 
ORGTR: BIT SRINGF RY ;IF RING CAUSED INTERRUPT, 
ORGTRI :SET RING TRANSITION BIT 
BIS #10, ORGFLG 
ORGTRI: BI sCOF RY ;IF CARRIER CAUSED INTERRUPT 
ORGTRe :SET CARRIER TRANSITION BIT 
84, ORGFLG 
ORGTR2: 81 acSF,R4 iP CLE CLEAR TO SEND 
BEQ ORGTR3 a ae aR SEND 
ise SEM zy 
BIS ORGFLG 
ORGTR3: BIT CRXF RY iT F. SEcoNaRY CEIVE 
Bre ry ORG G seh roe ae 
ORGTRY: Bit SAINGE +COF+CSF*SECRXF, RY’ 
;IF NO INTERRUPT FLAGS SET 
BNE TRANEX sEXIT TRANSITION DETECTION 
: ERRORN 
ER FATEX 





~ genes ee 
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ANSTR: 


ANSTRI: 


ANSTRe: 


ANSTR3: 


ANSTR4: 


TRR: 
FATEX: 


FATRET: 


TRANEX: 


TRANX1 : 
RT 


TRNTYP: 





ANSTRY 
#1 LG 
i. 4) 


TRANEX 
TSTNO 
OF ATRET 


;EXIT TRANSITION DETECTION 
RY 






;RECORD TRANSITIONS FOR ANSWER LINE 
‘@RINGF, RY 


;IF RING CAUSED INTERRUPT, 
;SET RING TRANSITION BIT 


;1F CARRIER CAUSED INTERRUPT 


;SET CARRIER TRANSITION BIT 
iF See gene TO SEND 
a ol 


feat 
; IF CEIVE 
I T 


ISET SECONDARY RECEIVE 
{TRANSITION BIT 


;1F NO_ INTERRUPT FLAGS SET 
;EXIT TRANSITION DETECTION 


;1F RING FLAG WAS SET 
;SET UP SPECIAL RETURN 


aber 
SOCHENAYINTENA, QDMBCSR ;RESTART SCANNER 


; TYPE TRANSITION DATA AND RETURN 


MOV @DMBCSR, DATAL 
@OMBLSR, OATA2 
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016062 


CETLIN: 


SETUPS: 


SETUPI: 


SETUP2: 





DO6 


; INPUT ORIGINATE AND ANSWER LINES FROM TELETYPE KEYBOARD f 


RESET 
INE TRG ;TYPE “ORIGINATE LINE-” 
fSe.0R *AND GET LINE NUMBER 

17 

LINORG 

INSTRG sTYPE “ANSWER LINE-” 

MSELANS *AND GET LINE NUMBER 

17 

LINANS 

TYPE 

MCRLF 

RTI sRETURN TO CALLING ROUTINE 
INITIALIZE INTERFACE 

RESET 

MOV #340,PS ;LOCK OUT ALL INTERRUPTS 

MOV (SP) 

MOV (R54, AXTTS 

MOV (RS)+ 

MOV RS, (SP) 

MOV @CLRSCN+CLRMUX, JDMBCSR ;CLEAR LINE SCANNER AND MULTIPLEXER 

BIT SUSY SDMECSR sWAIT FOR SCANNER TO CLEAR 

C G 


;ENABLE SELECTED LINES 
;SET TERMINAL READY ON SELECTED ORIGINATE LINE 


MOV LINORG, DMBCSR ;SET UP 10 ENABLE ORIGINATE LINE 
MOV SLINENA+TRMRDY , dOMBLSR 


MOV LINANS SR 
MOV SLINENA, 


: REQUE RI = ANSWER TERMINAL 
‘Sart INE 


MOV STRANS, SOMBVEC SET UP INTERRUPT VECT 
iE OR TRANSIT DETECTION 
ey SeCHENRS TNTENA, DOMBCSR staat LE RLBTS 
CLR Tent scar on DETECTED FLAGS 
CLR oi onerte 
MOV #SETUP4, RNGRET a UP RETURN FROM 
*DETECTION OF RING I T 
TYPE “REQUEST OPERATOR TO DIAL 
CLR PS ;CLEAR PROCESSOR STATUS WORD 
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I pleSee ELA vatees 016056 
BE ; 4 4 016050 SETUP4: 
: c ; f 0160Se2 
Be ie fae 
1 1 1367 
2esll Ol rf goed 016056 
Bi Ri Buss 
e314 Oleblé 1 ooo44e 
2315 Oleb2e pareee . SETUPB: 
S16 RES Be BE coe 
18 012636 
2319 
cies 
23e2 012640 611608 CKRNG: 
2323 Oleb4e 012537 013304 
i 1 13264 
es es Gis Olete 
2927 Tear ees nities 
ss Hiss ee Slee 
a 
2333 ee CKRNG1: 
se fies RES lee 
cae Olerie tors 
2938 Ole7ee Oeebeb 
2339 pers 000177 000336 CKRNG?: 
Saat bisa raitees 000346 , 


CLR TIME! CLEAR TIMER 

MOV #1000, TIME2 -SET UP FOR S MINUTE DELAY 

TST BNSFLG IF TRANSITION HAS OCCURED, 
SETUP EXIT WAIT LOOP 

TS LG 

BNE SETUPS 

INC IME 1 ALLOW OPERATOR 5 MINUTES TO DIAL 
SETUPY 

DEC Tite, 

BiB osp 

IMP JERRI 

POP2SP 

IMP TS 

MOV #340, +2‘ SP) 

RTI 

CHECK FOR RING INTERRUPT ON SELECTED ANSWER LINE 

MOV (SP) 

MOV (RS)4, NXTTS 

MOV (RS)+, 

MOV (RS)+ 

MOV RS, (SP) 

MOV #10, RS sEXPECT RING ONLY ON ANSWER LINE 

MOV ANSFLG, RY GET ACTUAL TRANSITION DATA 

MOV LINANS,R3 “SET UP LINE NUMBER 

CMP RS. RY sDID RING CAUSE INTERRUPT 

BEQ CKRNG1 30N ANSWER LINE 

JSR PC, JERR1 

CLR RS 

MOV ORGFLG, RY 

MOV LINORG,R3 

TSI RY sIF TRANSITION OCCURED 

Q CKRNG2 ON ORIGINATE LINE, ERROR 

POP2SP 

IMP DERRZ 

POP2SP 

IMP QNXTTS 
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;CHECK FOR CORRECT STATUS AND TRANSITIONS ON 


SELECTED ORIGINATE AND ANSWER LINES 
: 
DATA 
Dates 
TA 
V TAY 
ie 
SERRY 
nt 
ees 
NaS, @ONBC 
Sh RY 
»R3 
ke 






CLR 
CLR 
MOV 
MOV 
MOV 
CLR 
MOV 
INC 
BNE 
DEC 
RT 


ScESEESRSSESSSESS EAS SEESE 
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S366 CHECK FOR CORRECT TRANSITIONS ON 
2990 ‘SELECTED ORIGINATE AND ANSWER LINES 
eae 91317 1 013301 CKTRN2: TSTB DATA+1 
i ; on 016050 ore #10 ANSFLG 
ae Oi Sete ROVE LG. RY GET TRANSITION DATA FOR 
1321 MO DATAS, RS 
2997 O1selé MOV LINANS, R3 
2998 bh CMP RS.RY sDID CORRECT TRANSITIONS OCCUR 
2399 013224 BEQ CKTRN3 
3000 013226 ISR PC, JERR 
CKTRN3: MOV ORGFLG, RY ;GET TRANSITION DATA FOR 
1 MOV DATAY. RS 
01 MOV LINORG,R3 
3004 O01 CMP RS.RY DID CORRECT TRANSITIONS OCCUR 
3005 01 BEQ CKTRNY 
3008 1 SR PC, JERRY 
1 CKTRNY: POP2SP 
3008 013260 IMP ONXTTS 
3003 Ol 
3010 O01 
201 Hi 
3012 O01 
3013 013274 
3014 013276 
3015 013300 
3016 913302 
3017 013304 
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848001 016002 


HO6 


Debate FREE coun 
PE END 3F BASS MESSAGE 


EOP: 


INC PASCNT 
wa #1, TSTNO 


42,R1 
TSTENT 


T 
LOGICAL: JSR PC, (R1) 


NOP 

JMP TSTENT 
;EMT bisa SERV 
ARGUMENT OF EMT 
SAND USED AS OFF 


TO SELECTED SUBROUT 


EMTSRV: MOV (SP).-(SP) 
SUB #2, (SP) 
MOV a(SP), (SP) 
EMTOK: ASL (SP) 
BIC #177001, (SP 
ADD 8EMTTAB, (SP 
MOV ep) (SP) 





; SUBROUTINE 
360 TO SUBROUTINE 






;UPOATE PASS COUN 
; START AT FIRST VEST OF GROUP 
; RING BELL 


;ARE YOU ON ACT11? 


;GET ADDRESS OF FIRST TEST 


TRACTED 
OBTAIN POINTER 


GET PC OF RETURN 
*=PC OF EMT 
*MULTIPLY EMT ARG BY 2 

; CLEAR 

“POINTER 10 SUBROUTINE ADDRESS 













3057 
3058 
3059 
= 
3062 
g 013414 005737 O0ie4e 
aes pi eiss re 
BL S5e ee Brsane 000004 
3069 013434 005737 177060 
3070 Tee 012637 000004 
3 HES HE ono 
Be He BRB ois 
ie Hee 000137 013564 
1B BB ATES cena 
a Te 00$737 015774 
3082 Ot Meee o0e2000 002254 
Be HE) 2 com cn 
Be Hee BP) vom azen 
Be Hee BY cus 
3G HES BOR oon 
3091 BiSeee 000100 o0ee02 
oe flee fe ie 
is 
30% Hl 006305 
Be Hes fi Bie 
se Hl Sie 
3 1 116 11 016006 
Ree fee NO om 
13630 012737 000001 . 016006 
HE Ee 
09 


013640 005737 015774 
013644 001413 
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I06 





EMEC ye eres! een 


ce k FOR Eee BNE FEET Ov EO TEST IF O 


ates XOR FLAG (XFLAG) FOR EXISTANCE OF XOR TESTER. 
LOOP: Gr XFLAG 3S THERE AN XOR TESTER OUT THERE ? 
MOV Y-(H) ; 
7 reve UP S 


MOV 
TST 177060 iG0T SME TING. rie SLAVE SYNC 
MOV (SP)+,4 FY >YOU BETCHUM 


18: OPeSP ; RESTORE hemes 
MOV {3P)4,9 5 SRESTORE 4 


BR 
es: JMP LOOPX. ;GO TO NEXT TEST 
3$: JMP TSTENT ;G0 





4§: 
CLR PSW 
MOV #INTENA, aTKCSR 
S$ TST ERRFLG IF ERROR OCCURED =} 
BEQ L :CHECK FOR ESCAPE TO NEXT TEST 
BIT #SW10, 2SWR IF SW1O=1, 
LOOPS: BIT rent aSWR ifPC tet i 
Ne oor : 60P ON CURRENT TEST 
L 7 tINHTBLT ITERATIONS 
arr fea ae ee 
LOOPER: ay ain ( : fe pba he SURN TO T TEST 
BIC #INTENA, aTKCSR se 
Loopx: SNe  TSTNO ee Tesf RUBBER 
TSTENT: MOV TSTNO, RS GET TEST NUMBER 
BSL RS ?MULTIPLY TEST NUMBER BY 4 
TSTPNT.RS F 
nov (RS), RETURN ice CF ARTING AORESS Gr ExT oes 
BEQ EOP * S550, 10 END_OF 
MOV (RS )+ (SP) TART 
MOV (R5), LCOUNT seu ITERATION COUNT FOR Test 
¢ R ERRFLG CLEAR ERROR OCCURED FLAG 
BIC 8] , aTKCSR one 
LOOPL: MOV #1, ICOUNT Ser "0 TO EXIT TEST AFTER LOOP 
BR LOOPER GO TO LOOP SERVICE 






;CHECK FOR LOOPING WITH hl 
CHECK FOR ESCAPE TO NEXT TEST ON ERROR 
FREEZE: TST ERRFLG ;IF ERROR FLAG=0, 
BEQ FREE2X 300 NOT TEST FOR ESCAPE 


JO6 
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sity btseee Barga, CocUee det Bie =o teopyron lescfe 0 NEXT TEST 
git pt Pee Neesaee 001000 002104 BIT #SWO9, aSWR 

3116 013664 001402 BEQ FREEZX OT AER 

317 13668 17818 oooo00 oy (SP), (SP) ING ADD Eee 
3119 013674 962716 oo0002 FREEZX: a00 #2, (SP) CONTINUE IN CURRENT TEST 
3120 013700 O00002 RT 





+ +e + 
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WWW) 


SERRE PERE | 


GIWIWIWIGIWIGIW UII, 
0 2 fb 0 9s po fe pe 


Pont http ani tietitodet inp tat 
oo000 


015774 

0161Se O14l2e 
014226 014134 

27 


GI GIGI GI) GIGI WIG) GI) GIG) GIG) GN) GG) GI LI GG) GI GIGI GI GI GUI GI GIG) 
Baa Dae Oa fae G8 ne as Be Dm be ae em Bas be bas ne nn ne he fre Dens Gene Dens De Bre eae fect ae fee Bone ne 


FR EO- O.ww Ve ut Leto 








KO6 


;GENERAL ERROR SERVICE 
ONLY PC OF FAILING TEST IS OUTPUT TO TELEPRINTER 


CLR ERRFLG ;ALWAYS TYPE PC+2 
;OF TEST NO HESS AILE 


CLR ERRMSG 
CLR ERTAB ;NO_TA ABLE OF DATA 
BR ERRGEN OUTPUT ERROR MESSAGE 


; TRANSITION DETECTION ERROR SERVICE 
;FORMAT FOR ERROR TYPEOUT IS 
;XXXXXX_TRANSITION ERROR 
sEXP REC LINE 
;AA~—sBB 
;WHERE XXXXXX=PC+2 OF CALL TO ERROR ROUTINE 
; AA=EXPECTED INTERRUPT FLAGS gee TO 4 MSB OF CONTROL REGI 
; BB=RECEIVED INTERRUPT FLAGS (AS ABOVE) 
CC=LINE ON WHICH ERROR OCCURED 


dig ERRFLG AL RY ara 
MOV -«sSHTRANE, ERRMSG Tbe, STRANGLTTON 

MOV —«sERTABI'ERTAB 

BR _—ERRGEN | 2 OERROR MESSAGE 
SON-LINE STATUS ERROR SERVICE 

sFORMAT FOR LINE STATUS ERROR IS 


Be as 


WERE XXXXXX=PC+2 OF CALL TO ERROR ROUTINE 
ARA=EXPE 


: CTED LINE STATUS AT TIME OF ERROR 
: BBB=RECEIVED LINE STATUS AT TIME OF ERROR 
: CC=LINE ON WHICH ERROR OCCURED 
CLR ERRFLG ALWAYS OUTPUT ALL DATA 
MOV #MLINE1, ERRMSG : TYPE a ERROR 
MOV 8ERTAB2, ERTAB ITABLE OF DATA 

ERRGEN t OUTPUT ERROR MESSAGE 















LO6 
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3167 
3168 ;FATAL_TRANSITION ERROR 
15) ;FORMAT FOR FATAL ERROR TYPEOUT IS 
171 ;XXXXXX FATAL ERROR 
172 ;CSTAT LSTA 
in ion 
3175 ;WHERE XXXXXX=PC+2 OF CALL TO ERROR ROUTINE 
176 ; AAAARA=RECEVICED CONTROL STATUS ON LINE THAT INTERRUPTED 
aire ; BBB=RECEIVED LINE STATUS ON LINE THAT INTERRUPTED 
3g 013764 005037 015774 ERRN: CLR ERRFLG ;ALWAYS OUTPUT ALL DATA 
3180 013770 012737 017073 O14122 MOV aMFATAL , ERRMSG oT, FATE Ganon 
3182 013776 012737 014244 014134 MOV #ERTABS, ERTAB : TABLE OF DATA 
tt 014004 000416 BR ERRGEN ;OUTPUT ERROR MESSAGE 
3185 ;"CONTROL STATUS” ERROR SERVICE 
ai% ;FORMAT FOR CONTROL STATUS ERROR IS 
3188 ;XXXXXX STATUS ERROR 
3189 ;EXP C 
aa ; 
3ig5 ;WHERE XXXXXX=PC+2 OF CALL TO ERROR ROUTINE 
3193 ; ARAARA=EXPECTED CONTROL STATUS AT TIME OF ERROR 
siz ; BBBBBB=RECEIVED(ACTUAL) CONTROL STATUS AT TIME OF ERROR 
3196 
ae 0140068 012737 O16064 014122 ERRCS: MOV #MSTATE, ERRMSG sre aes ERROR 
3199 014014 012737 O14256 014134 MOV #ERTABY, ERTAB :TABLE OF DATA 
scm 014022 000407 BR ERRGEN sOUTPUT DATA 
sete ;LINE STATUS ERROR SERVICE 
so ;FORMAT FOR LINE STATUS ERROR IS 
3206 ;XXXX LINE ERROR 
3207 ;EXP REC LINE SEL 
s508 ;AAA «=D SCCC:~C*é«é«iO*”?S 
3210 ;WHERE XXXXXX=PC+2 OF CALL TO ERROR ROUTINE 
3ell : AAA=EXPECTED LINE STATUS AT TIME OF ERROR 
3el2 ; BBB=RECEIVED LINE STATUS AT TIME OF ERROR 
3213 ; CC=LINE ON WHICH ERROR OCCURED 
agit ; DD=THE LINE ON WHICH THE PROGRAM WAS OPERATING 
3e16 . 
3el7 014024 ee 016115 014122 ERRLS: MOV #MLINER, ERRMSG 
3218 014032 012737 O14270 014134 MOV #ERTABS, ERTAB 
3219 014040 000400 BR ERRGEN 



























mae i 
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3220 

3221 5 GTS Re a HANDLER 

agss OF TERT T_THAT FAILED 
i Typ ERROR. MESSAGE ( 


(IF_ANY) 
;TYPE DATA RELATING TO FAILURE (IF ANY) 


24 
3225 
3226 O14O42 905037 177776 ERRGEN: CLR PSW 
3227 O1O46 012777 000100 001704 MOV wINTENA aTKCSR 
32028 O140S4 030777 O20000 001706 BIT W13, JSWR IF SW13=1, 00 NOT 
3229 014062 001026 BNE 7 ‘TYPE ERROR MESSAGE 
3230 O14064 021637 016026 CMP (SP), SAVPC :SAME ERROR AGAIN 
3231 014070 001402 BEQ +6 

O1407e 005 015774 CLR ERRFLG 


01 0400S 
3234 014100 005737 015774 TST eben ip ae OCCURED FLAG=1, 


3235 014104 001097 E NLY 

32 Ob AOU OCTASC ; TYPE PC+2 OF CALL TO ERROR ROUTINE 
323? 01411 142 ERTABO 

3238 Ol4lle 005737 Ol4lee TST ERRMSG 

3239 014116 001407 BEQ 2 

3240 014120 104004 TYPE ; TYPE ERROR MESSAGE 
ge41 O14le2 000000 ERRMSG: 0 . 

ge4e 014124 005737 014134 ods TST ERTAB 

3243 014130 001402 BEQ m 

3e44 014132 104006 OCTASC ; TYPE DATA 

agi 0141 reg ERTAB: O 

Su 0141 10400 23 RESOS ;RESTORE RO-RS 


348 sERROR HALT SERVICE 

3250 014140 032777 100000 o01622 .3: BIT #SW15, ISWR ;IF SW15=0, DO NOT 

$e Bratep Shao8 PACT m WaT AND DISPLAY ADDRESS OF FAILING TES 
stytss 000176 015770 CMP WSHREG, SUR 


O14i6e 1040eS 
3256 014164 012737 009001 015774 os MOV RFLG ;SET ERROR OCCURED FLAG 
3257 014172 04¢777 000100 001560 BIC SINTENA, aJTKCSR 
3e58 014200 000002 _ RTI ;RETURN TO TEST 


— a 
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014. 
014310 


014312 
014314 
014316 
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ERTABO: 






NO6b 





; TABLE S OF DATA FOR ERROR TYPEOUT 
; TABLE FOR TRANSITION STATUS ERROR 


l 
6 
SAVPC 


ERTAB1: 3 


e 

_— 
SAVRY 
SAVR3 


ERTABe: 3 


3 

SAVRS 
SAVRY 
SAVR3 


ERTAB3: 2 


6 
SAVRY 
SAVR3 


ERTABY: 2 


ERTABS: 


SWRTB: 





6 
SAVRS 
SAVRY 
4 


Zavrs 
SAVRY 
eae 
SAVR1 
1 

SWREG 


;CONTAINS EXPECTED TRANSITION STATUS ‘" 
;CONTAINS RECEIVED TRANSITION STATUS — 
;CONTAINS NUMBER OF LINE WHERE ERROR OCCURED 


;CONTAINS EXPECTED LINE STATUS 
;CONTRINS RECEIVED LINE STATUS 
;CONTAINS NUMBER OF LINE WHERE ERROR OCC 


;CONTAINS EXPECTED CONTROL STATUS 
;CONTAINS RECEIVED CONTROL STATUS 


;CONTAINS EXPECTED LINE STATUS 

;CONTAINS RECEIVED LINE STATUS 

;CONTAINS NUMBER OF LINE WHERE ERROR OCC 
;CONTAINS NUMBER OF LINE UNDER TEST 

















<3 
3 


sOQUTPUT CONVERTED DATA 
310 TELETYPE 
4 ;RETURN TO CALLING ROUTINE 


: 


18: 


Yl a7( 732), Li-OC TESS - 0:68 PAGE 80 . : 
; sCONVERT OCTAL TO ASCII AND OUTPUT ON TTY 
OCTASN: MOV 3(SP) RS -GET POINTER TO TABLE OF DATA 
- ADD #2, (SP) 
i9 014660 MOV #10, RADIX 
l ' MO +2, 84 SET UP POINTER FOR CONVERTED DATA 
1 1 M (RS) +, WROCNT “GET NUMBER TO BE CONVERTED 
1 4 : 016032 ‘ OCTASI: MOV (R5)+; CHRCNT :GET NUMBER OF DIGITS IN 
14 014654 3(RS)4+, BINWRD *GET DATA TO BE CONVERTED 
1s CONVERT “CONVERT TO 
3318 4 016030 EC WROCNT TF ALL DATA IS NOT CONVERTED 
331 4 1 BNE OCTAS! : CONTINUE 
s18 14 14 909100 MOVB 8100, (R4) ‘PUT TERMINATOR AT END OF MESSAGE 
14 014510 TST 
14376 001092 BNE 1S 
14400 
14402 
014404 
4405 


01 CNTLU: 
1 614506 


me ; 


£3 


000001 014519 


—O-O-— 
~ 
£ 

a6 


a 


015324 000015 
14504 001276 
14506 

014510 


SRE ECE ETE 
e 


oe 


Per Oe Le Hi is 
eeepsssess 8 
paaontae z 


OONOOOOOOOOCOOOOOO000000 


© 20 28-2 b oh HOG Mo OGwOP 99 = pH b= b= pw & ~ hs Fs P= Re 


di 





Pee ee CN Fy Fs ' 






: 


ae 


000069 
014656 


find 
= a 


Oooo 00O00000O 
ARS D AAA HAS 
~ 


ee Es 


a 





ERDRh IER oninee eR Nee 


Bo Gas fas fas Pa & 4} oo Gm fan Hoo Oo = fo Pus fs hes Bt he 


SVENE PEEL LI Vicicl SERERPRRMEL seaatia naar cule 


O146SE 
014654 

= + 

000000 
014662 O16637 O00004 
o1sg7D goss? o16ne2 
biw7oo Oitser Oleg 
iio Biter Bieaiy 
014714 010037 016010 

3400 014720 Banoee 


a eee ee ee 


O14€56 


014680 
014634 
014660 
014656 


016026 
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BINASC: 
BINASA: 


BINASB: 


MOV CHRCNT, RO SET UP COUNT FOR DIGITS TC BE CONVERTED 
MOV STEMTAB, RI :SET UP POI FOR TEMPORARY STORAGE 
EXTRACT EXTRACT ONE DIGIT 
ADD #60 gIGIT :CONVERT FROM BCD TO ASCII 
MOVB DIGIT, (R1)+ *STORE DIGIT 
DEC RO : IF ALL IGITS NOT DONE, 
BNE BINASA : CONT 
MOVB (Ri), (R4)+ ;REVERSE ORDER OF DIGITS 
DEC CHRCNT sIF ALL CHARACTERS ARE NOT 
BNE BINASB :IN ORDER CONTINUE 
MOVB #40, (R4)+ SINSERT SPACE AFTER LAST DIGIT 
RTI *RETURN TO CALLING ROUTINE 
;SINGLE PRECISION UNSIGNED DIVIDE LOOP 
CLR DIVIDH 
CMP DIVIDH, DIVIS 
BHIS IvIB 
MOV a7. DIVCNT 
ER prvit 
CMP DIVIDH,DIVIS 
BLO Oty C 
SUB IVIS, DIVIOH 
ROL Divtot 
ROL IVIDH 
DEC (PC)+ 
BNE DIVIA 
DIVIDH 
COM DIVIDL 
RTI 
a 
0 


CO7 











; INTEGER BINARY TO ASCII CONVERSION COMMON ROUTINE 


;SAVE PC OF TEST THAT FAILED AND RO-RS 
MOV 4(SP) , SAVPC 
;SAVE RO-RS 


DO? 


yp BEeRES 
b eeeee’ 
2 FRRAS 
é 
© SSeseer 
8 

| Q 

\ 

z 

2 

0 

5 Scin2 


pes MACYL1 27732) 


| 


; TELETYPE OUTPUT ROUTINE 


ae 

2 og. 

22 

webs 3 
Ses. 3 , = 
Hee SS SY 
See 4 fowl! 
=o & 26 ie Bun 
ae : : hss 
oy, Gwe ~ 


nm = - 
Ra ae dite: 
Sat gf ttob act 


Baraberhabe ino 


a ¢ 
& 


TYPERI: 


Tati: 
SENSE ean 


———— 


8 a ed Oh Ow 


SLES 





HARACTERS INCLUDING 
» THE IN PUT WILL 


TR 
RE 
C 


MAGA 
DAA 


ti 
yp & 8 
x 
ab 
cites oe 
Gabe tig 
at = 
de, Sof <a 
seeee; Severtece 


SEEEEE ERacESEn 
oi 


INSTRB: 
INSTBB: 


INSTR: 





LOLA Lnininin 
Pee ban ban bat beet ham bam bem bon bee an bam bam bat pen ben bam bem bend 
OOOO OOOOOO0OO0000 


ecusoeaisse 
popes ites ests rats 





em em ee ne ne |e ae we 
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He Gee Oo i om 
Bes CIS leita? 
i eS, om 
1$1 ll 3 eta 
ve ue iie277 
Hee O18IZe Means 
suee pial?” Tere 
a Be 
7e 
3473 
74 pipem 104004 
75 015206 017016 
a piste 1 015324 
3478 ptest? 1 18 000015 
en ee 
3482 015230 002762 
pei lees Ones? eo 
: : 14 OO00060 
See 
He Giese Sea 
3491 Oise 006303 
3135 01S26e 000760 
aH 
Rab] pisces re 015320 
$e Hee BES cae 
SH lem Ot cons 
3502 1s318 rite 014S06 
Sm Oss oe 
3506 015320 000000 
au ibaa onan 
2) 015346 
. doll 
‘3512 












10:58 PAGE 83 
MPB ss (R4) 1S 31S CHARACTER TERMINATOR 
aus INSTR2 it IS, CONVERT INPUT STRING 
cire CRA) , #25 
CLA 
INSTR 
1S: MOVB  (R4)4. aTPOBR ;TYPE CHARACTER IF NOT TERMINATOR 
INSTRC: i378 eTPCsR ‘WAIT TO FINISH TYPING 
NSTRC 
DEC R3 sUPDATE RECEIVED COUNT 
NE INSTRB AND CONTINUE 
INSTER: TYPE -TYPE “?" AND RE-REQUEST INPUT 
BR INSTR 
sCONVERT ASCII STRING TO OCTAL 
INSTRe: TYPE 
MCRLF 
HOV SINBUF , RY ;GET POINTER TO ASCII STRING 
CMPB ss 15, (R4) :1S TERMINATOR FIRST 
CHARACTER IN STRING 
INSTRD: aca (R4), 860 sIS CHARACTER OCTAL DIGIT 
Rte INSTER. | eal 1¢ OCTAL DIGIT 
BGT INSTER 
BICB #60, (RY) STRIP ASCII 
BISB = (R4S+ R3 *GENERATE OCTAL NUMBER 
CHP CR) ;IF END OF STRING, CHECK LIMITS 
BE? MS ;MULTIPLY DIGIT BY 10 (OCTAL 
ASL R3 
ASL R3 
BR INSTRD ;GET NEXT DIGIT 
;TEST NUMBER TO SEE IF IT IS WITHIN LIMITS 
INSTR3: CMP R3, HILIM sTEST HI LIMIT 
BHI IN IF _R3>HILIM, ERRCR 
CMP LOLIM TEST LOW LIMIT 
BLO INSTER IF R3<LOLIM, ERROR 
MOV R3, ASTORE *STORE NUMBER 
RTI sEXIT 
CHCK: TST NPe 
BEQ INSTER 
OLIM: O 








E07 


;ENTER HERE ON POWER FAILURE 











FO? 
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=< 
x 
eH 
mn 
3 
w 
w 
ul 
Yo 
oO 
a 
z 
oO 
+ 
& 
ta 
=> 
« 
ro 


LALO 


ee ee ee ee ee ee 


~e 2 & &8 & @& 


AACA IT AES 


8 nk nh mh Oo om wo 
AQA0000000 


Aue ira 


OE dd ad eG Of Oo od 
OQA0OO000000 


> MFMNoOKRaw 


AO Od Of oe -§ og 


BOBOHes 





HALT ON POWER DOWN NORMAL 


SPT UB FOR POKER UP_TRAP 


;PROCESSOR WILL TRAP HERE WHEN POWER IS RESTORED 


oo0de4 


a 3 
= e 
& u 
oe & 
Be s 
ss OS 
nezevee™ 


16024 


a ee mass 
oo 


eg eh Od Og a GO eg ad 9 ad a Hd we Hg 
QOO9OOO0OOAMO000O0000 


MAM aca RRR MOM 


Ee 
;SET --AND INTERRUPT 


;SET_ INTERRUPT ENABLE 


N 


;PREVENT INTERRUPTS 


;SET UP DEFAULT 


;SAVE 20 


BO. TSTPNT 


abretsn 


TNO 


art 


SINTENA, ADMBCSR 


sont, S0ABCSR 


SSPeSSeseshaeend 


; THE FOLLOWING AUTO VECTORS USING THE FIRST BASE ADDRESS 


k 


ae 





02000000055065005e 


———— 


Od Sd a a ed ed 9 Oh Om QO HO 
QOOOOW00O00OOOOMOOOO0000 


a ae 


r 














GO? 
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3569 O1seue 012637 HOY (3 20 ime 4 heer ? 
] CR cot *STOP ALL INTERRUPT 
oi 177776 gre 8340, PS : , 
1 isole ERROR 
1 HALT sYOU SHOULD HAVE INTERRUPTED 
ee 13e20 Brea? 2s ay rt ), DMBVEC XTRACT VECTOR +4 
3228 1Ber 1eaPa, nena 015750 : SUB (3 C ‘CREATE LVL 
53 Oh rt piane> Qiesen ag | SECT «SERERITE AND SAVE VEC 
3224 15726 ee ane 177776 MOV 154. Be ‘PREVENT INTERRUPTS 
3581 01 000022 CLR aomBcsR : 
Seas D1e7 DoSESe Popsep 
3584 pies ae br ses oo0022 MOV (SP)+, 22 RESTORE 22 
3585 015742 Ole637 O00020 MOV (5P)+) 20 ‘RESTORE 20 
3585 015746 


HO7 
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MSTATE: .ASCII ;STATUS ERROR“"EXP RECa; 


MLINER: .ASCII ;LINE ERROR“”EXP REC LINE SEL@; 


3588 
3589 INDIRECT POINTERS 
seat alee 000300 DMBVEC: 300 ;ON11-88 INTERRUPT VECTOR 
g : -Bi 
23 Bt sav Mt $38s00 : MIt-BB SON ONTROL STATUS Ekister 
3594 015756 170802 y SR: 170802 :DM11-88 CONTROL STATUS REGISTER 
Be flee ire Higa toe 
Seg O1e7ee 177566 Thee, | {97ebe 
Gir76 177570 SWR: | 177570 
1 177570 DISPLAY: 177570 
$02 PROGRAM VARIABLES 
3604 ale77e Sooo ERRELG: 0 
a 1 PASCNT: 0 
3607 O1b00e 000000 TSTNO: : 
= x O1Etoe “t i ; Oo ICOUNT: 0 
3610 O1601 SAVRO: 0 
3611 O160le SAVRI: 0 
sole O1b014 SAVRe: 0 
3613 O16016 SAVRS: O 
3614 016020 SAVRY: 0 
3615 016022 SAVRS: 0 
3616 016024 SAVSP: 0 
3617 O16026 SAVPC: 0 
3618 016030 WROCNT: O 
3619 Ol CHRCNT: 0 
3620 Ol TSTPNT: TSTTBO 
bel 1 13TH: 0 
16040 LINFLG: 0 
3623 O16042 LINE: 0 
3624 DLL L INORG: 0 
ee lees merit: 8 
3628 016054 TIMEI: 0 
1 Tine: 0 
1 TIFLG: = 
1 RNGRET: 
3633 016064 , 
nae 
016106 
16114 
3 bile 
161 
161 
3641 016136 
3642 016144 
0161S2 





& 
ao 


MLINEi: .ASCII ;LINE ERROR“"EXP REC LINEQ; 





\- 











IG? 
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;%"%" 103A MODEM CONNECT-DISCONNECT TEST“"a; 
;%"°%"202C MODEM CONNECT-DISCONNECT TEST%"a; 
;%"STRIKE ANY TTY KEY TO TEST DISCONNECT@; 


; TRANSITION ERRORX“EXP REC LINE@; 
;x*“"DIAL ANSWERING DATA SETX*a; 
;“°103A TEST COMPLETEX"2; 

;x"202C TEST COMPLETEX"@; 

x16 LINE SCANNER TEST“"3; 


;%"“"ORIGINATE LINE-a; 


;“"°ANSWER LINE-d; 






ASCII 
ASCII 
ASCIT 
-ASCIT 
ASCII 
ASCII 
ASCII 
-ASCIT 
ASCII 


MTRANE 

DIALM 

MT103T 
MT20eT: 
MSELOR 

MSELAN: 
MT103A: 
MT202A: .ASCII 
MDISC: 

M16: 


‘js es § ee 
+ sare a 3 Poe 
a ar 
EEN OTR NUUpeooE eee eeNereEteEEeE eee Cre men un ONS Reet Es 


BLALBBSSIDSSSSIGI SSSI SSI SS DDD DDH D DD DH Goo Bio B BB BBB Bb 
OOOO OOOWHOOQWOHOOOWHOHW90W0OBOHOHO00000DNOO0000000000000000000000 


RaRaRE IAN AAA MEA MAMMA RORA ROME MRAM ASAE EEA ESE 


DZDMD-B_ NACY11 27(732) 
D - SRC 


021045 


Es 
5 
8 


ee 
eo 
j= boo 


Fo? fe ae bs hs fe pee 


o 
N“N 
- 
~ 


Sr 
ti 
ee 


RRZRR 
RSA 


B 


sua 


7106 

7114 poole? 

71 

71 

71se 05151 

1S Be 

17154 051 

17162 O46040 

ae: 

re i 
052514 

ef 

16 0471 

0Se1 


= 
<£ 


051101 


SARITA 


SNS 


“ 
= 
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021045 055104 MTITLE: 
O0e6504 020102 
026440 O264SS 
pare 030461 
1 044S04 
123 
bacuee 455 
Bese p51 MVECTO: . 
051523 o400S55 
MREGAD 
14 
1 ll 
1 eSee 
040055 
042524 052123 MTEST 
040077 MQM: 
100 MCRLF: 
1 047111 MLINE: 
1 a 
1 
1 
044514 O42S16 MLINEI: 
042502 
10 MFATAL: 
mail itty 
051503 o40S24 
046040 052123 
MTRNDE: 
psetie uses 
2504 2524 
OS 1045S 
124 
OSele3 052101 
053517 MPFAIL: 
044501 
1% MPF 1 
toy paeeog 
046111 
eaeose 0S2l23 
040042 
109 ONTC: 
0401 MCONTV: 
100 MCONTL: 
seat 051127 SSWREQ: 
020040 047040 SNEWIS: 
020075 100 
O42 MBCD: 


| 
| 


-ASCIT 


-ASCIT 


JO? 


;“"“"DZDMD-B  -===- D'11-BB DIAGNOSTIC-----1"9; 


;%"VECTOR ADDRESS-d; 


;“"CONTROL REGISTER ADDRESS-a; 


3%" TEST-a; 
+ ad 

3e9; 

;Z°SINGLE LINE CABLE TEST“"3; 
;“"LINE NUMBER-@; 


;FATAL ERROR“"CSTAT LSTATA; 


s“"TRANSITION DETECTEDZ"CSTAT LSTATA; 


;%"POWER FAILUREQ; 


;~CURRENT TEST WILL RESTART%"Q; 





;EMT DISPATCH TABLE 









yn Hea 8 z ei Saum +s Ail ae 
Be ee oe 
Sage e a ore § 
- wowed & ae 5 8 
: 8) sa 
S [ow | ae | [ om | OOOOOOOO00OOO0 00000000 | 
Pee BURR ORE FET ERE e Eee eee RRR RRRRER RRR ORR CPRRRERS | 
2 oo os BOG OGOG OOOO OOOO OOOO OOO DOUOUODOU DOGGOOGOODOOO000 
ie POQ—ue rin roO- - - o-7 
EF Ree R eee eee ee CECE ERERERERRESERR CREE R RR COO RRC e a RRR a CRREaS | 


LO? 
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2 SS Pot fulees Sint ols Lot Yutines Hint oth YoY Yume Hint on Y 
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